comparison Ikariam.pm @ 195:1332231eb5a0

check friends
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Mon, 03 Nov 2008 02:00:00 +0800
parents 5501ce37b50f
children dbdd7dcc91c6
comparison
equal deleted inserted replaced
193:a6a4a48d5fda 195:1332231eb5a0
970 my $self = shift; 970 my $self = shift;
971 971
972 # MilitaryAdvisor 972 # MilitaryAdvisor
973 $self->checkMilitaryAdvisorMilitaryMovements(); 973 $self->checkMilitaryAdvisorMilitaryMovements();
974 $self->checkMilitaryAdvisorCombatReports(); 974 $self->checkMilitaryAdvisorCombatReports();
975 $self->checkFriends();
975 $self->{'research'} = $self->checkResearch((keys(%{$self->{'cities'}}))[0]); 976 $self->{'research'} = $self->checkResearch((keys(%{$self->{'cities'}}))[0]);
976 977
977 # alerts 978 # alerts
978 # //li[@id="advCities"]/a[@class="normalalert"] 979 # //li[@id="advCities"]/a[@class="normalalert"]
979 # //li[@id="advMilitary"]/a[@class="normalalert"] 980 # //li[@id="advMilitary"]/a[@class="normalalert"]