=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;
-