+=head2 DelSuggestionsOlderThan
+ &DelSuggestionsOlderThan($days)
+
+ Delete all suggestions older than TODAY-$days , that have be accepted or rejected.
+
+=cut
+sub DelSuggestionsOlderThan {
+ my ($days) = @_;
+ return if not $days;
+ my $dbh = C4::Context->dbh;
+
+ my $sth = $dbh->prepare("
+ DELETE FROM suggestions WHERE STATUS <> 'ASKED' AND date < ADDDATE(NOW(), ?);
+ ");
+ $sth->execute("-$days");
+}
+