comparison scores.pl @ 374:e551351b18de

updated for timestamp of scores information
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Tue, 14 Apr 2009 17:01:17 +0800
parents 53c87400183f
children
comparison
equal deleted inserted replaced
373:dd3d76f43999 374:e551351b18de
24 if(my $c = Ikariam::User->retrieve($user->{id})) 24 if(my $c = Ikariam::User->retrieve($user->{id}))
25 { 25 {
26 foreach my $i (keys(%$user)) { 26 foreach my $i (keys(%$user)) {
27 eval($c->$i($user->{$i})); 27 eval($c->$i($user->{$i}));
28 } 28 }
29 $c->time(time);
29 $c->autoupdate(1); 30 $c->autoupdate(1);
30 $c->update(); 31 $c->update();
31 } else { 32 } else {
32 Ikariam::User->insert($user); 33 Ikariam::User->insert($user);
33 } 34 }