comparison scan.pl @ 123:6043e9bfdeef

revert to earier versoin which is easier to read.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Thu, 30 Oct 2008 16:19:45 +0800
parents 0bab14dddf60
children 124fc7abda39
comparison
equal deleted inserted replaced
122:11541129a389 123:6043e9bfdeef
25 $c = Ikariam::Cities->insert($h_city); 25 $c = Ikariam::Cities->insert($h_city);
26 } 26 }
27 $c->update(); 27 $c->update();
28 28
29 my $user = Ikariam::User->retrieve($h_city->{'user'}); 29 my $user = Ikariam::User->retrieve($h_city->{'user'});
30 next if (defined($user) && defined($user->time) && (time - 60*60*1) ge $user->time); 30 next if (defined($user) && defined($user->time) && $user->time le (time - 60*60*1));
31 31
32 saveUser($h_city->{owner}); 32 saveUser($h_city->{owner});
33 } 33 }
34 } 34 }
35 35