--- a/scan.pl	Wed Oct 08 01:52:18 2008 +0800
+++ b/scan.pl	Wed Oct 08 02:50:19 2008 +0800
@@ -17,12 +17,12 @@
 foreach my $island (@islands)
 {
     printf("checking island %d\n", $island->{id});
-    if(my $c = Ikariam::Islands->retrieve($island->{id})) {
+    if(my $c = Ikariam::Island->retrieve($island->{id})) {
         foreach my $i (keys(%$island)) {
             eval($c->$i($island->{$i}));
         }
     } else {
-        Ikariam::Islands->insert($island);
+        Ikariam::Island->insert($island);
     }
 
     # scanning the island