Mercurial > eagle-eye

comparison Ikariam.pm @ 288:24de33db8284

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed the missed metadata
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Fri, 05 Dec 2008 20:20:19 +0800
parents 2ddd2bd21ef2
children 73c9bf517155 15c288dd7dc5
comparison
equal deleted inserted replaced
287:d194ff3edb2f 288:24de33db8284
748 $data->{buildings}->{$building} = $level; 748 $data->{buildings}->{$building} = $level;
749 } 749 }
750 } 750 }
751 } 751 }
752 752
753 $data->{id} = $cityId;
753 $data->{name} = $extractor->find('//span[@class="city"]/text()'); 754 $data->{name} = $extractor->find('//span[@class="city"]/text()');
754 755
755 my $island = $extractor->find('//div[@id="breadcrumbs"]/a[@class="island"]'); 756 my $island = $extractor->find('//div[@id="breadcrumbs"]/a[@class="island"]');
756 if($island =~ /(\w+)\[(\d+):(\d+)\]/) { 757 if($island =~ /(\w+)\[(\d+):(\d+)\]/) {
757 $data->{island}->{name} = $1; 758 $data->{island}->{name} = $1;