Mercurial > eagle-eye

diff Ikariam.pm @ 30:de5de6d472f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added space checking
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Fri, 10 Oct 2008 05:24:04 +0800
parents dbec53e754e3
children 91e387b51aa0
line wrap: on
line diff
--- a/Ikariam.pm	Fri Oct 10 05:15:40 2008 +0800
+++ b/Ikariam.pm	Fri Oct 10 05:24:04 2008 +0800
@@ -265,6 +265,10 @@
         my ($elem) = $html->getElementsByAttribute("class", "city");
         $self->{'cities'}->{$cityId}->{name} = $elem->innerText();
 
+        my ($elem) = $html->getElementsByAttribute("class", 'constructionSite');
+        $self->{'cities'}->{$cityId}->{construction} = 0;
+        $self->{'cities'}->{$cityId}->{construction} = 1 if(defined($elem));
+
         # check goods
         foreach my $good (qw/wood wine marble crystal sulfur/) {
             my ($elem) = $html->getElementsByAttribute("id", "value_" . $good);