summaryrefslogtreecommitdiffstats
path: root/collectstats.pl
diff options
context:
space:
mode:
Diffstat (limited to 'collectstats.pl')
-rwxr-xr-xcollectstats.pl7
1 files changed, 7 insertions, 0 deletions
diff --git a/collectstats.pl b/collectstats.pl
index 002d5fba2..bc7b24884 100755
--- a/collectstats.pl
+++ b/collectstats.pl
@@ -453,6 +453,12 @@ sub CollectSeriesData {
"(series_id, date, value) " .
"VALUES (?, " . $dbh->quote($today) . ", ?)");
+ # We delete from the table beforehand, to avoid SQL errors if people run
+ # collectstats.pl twice on the same day.
+ my $deletesth = $dbh->prepare("DELETE FROM series_data
+ WHERE series_id = ? AND date = " .
+ $dbh->quote($today));
+
foreach my $series_id (keys %$serieses) {
# We set up the user for Search.pm's permission checking - each series
# runs with the permissions of its creator.
@@ -470,6 +476,7 @@ sub CollectSeriesData {
my $count = scalar(@$data) || 0;
+ $deletesth->execute($series_id);
$sth->execute($series_id, $count);
}
}