diff scan.pl @ 254:1e4922d9a671

fixed for saving island data.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Mon, 17 Nov 2008 13:01:10 +0800
parents d75f26fc1c69
children b01560b95779
line wrap: on
line diff
--- a/scan.pl	Mon Nov 17 13:00:40 2008 +0800
+++ b/scan.pl	Mon Nov 17 13:01:10 2008 +0800
@@ -127,11 +127,11 @@
             my $i = $self->{ikariam}->clone();
             my @cities = 
                 $i->viewIsland($h_island->{id});
-            $self->saveCities($h_island->{id}, @cities);
-
             $island->set('time', time);
         }
         $island->update();
+
+        $self->saveCities($h_island->{id}, @cities);
         $pm->finish;
     }
     $pm->wait_all_children;