# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1226898070 -28800
# Node ID 1e4922d9a671d78f3c01c2a82a911954413ca794
# Parent  9fe03a3d155c696609497b813fb0de5d199a477a
fixed for saving island data.

diff -r 9fe03a3d155c -r 1e4922d9a671 scan.pl
--- 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;