X-Git-Url: https://ruin.nu/git/?p=ndwebbie.git;a=blobdiff_plain;f=scripts%2Fparsealliances.pl;h=f42414ba53f3d755a04188fb8ebb2c9102c17592;hp=36a80306cab15da43a4479b3bbd0a562d48fdb03;hb=6a03c42459329f8c3f6ddc96cf91e508a6d71c90;hpb=e2d21c8468811a7cdb1266f6972074e8547eb791

diff --git a/scripts/parsealliances.pl b/scripts/parsealliances.pl
index 36a8030..f42414b 100755
--- a/scripts/parsealliances.pl
+++ b/scripts/parsealliances.pl
@@ -81,6 +81,8 @@ my $findalliance = $dbh->prepare(q{SELECT tick,aid,members,
 	members_gain,members_gain_day
 FROM alliance_stats WHERE aid = $1 AND tick < $2 ORDER BY tick DESC LIMIT 1}) or die $dbh->errstr;
 
+$dbh->do(q{DELETE FROM alliance_stats WHERE tick = $1},undef,$tick);
+
 for my $alliance (@alliances) {
 
 	$findalliance->execute($alliance->[1],$tick) or die $dbh->errstr;