diff --git a/misc-scripts/production_database/scripts/update_database_list.pl b/misc-scripts/production_database/scripts/update_database_list.pl index 5cc7b56565fb6d6a07feae15821f0d7106f2c76b..94498713c4ba352ffb85b807ac506e49017772a5 100755 --- a/misc-scripts/production_database/scripts/update_database_list.pl +++ b/misc-scripts/production_database/scripts/update_database_list.pl @@ -136,13 +136,15 @@ my %found_databases; { my $previous_release = $release - 1; - print "Delete entries from db for releases older than ". $previous_release ."? (y/n)\n"; - my $response = <>; - chomp $response; - if ($response eq 'y'){ - $dbh->do("DELETE FROM db WHERE db_release < $previous_release"); + my ($old_db_count) = $dbh->selectrow_array("SELECT COUNT(db_id) FROM db WHERE db_release < $previous_release"); + if ($old_db_count > 0) { + print "Delete entries from db for releases older than ". $previous_release ."? (y/n)\n"; + my $response = <>; + chomp $response; + if ($response eq 'y'){ + $dbh->do("DELETE FROM db WHERE db_release < $previous_release"); + } } - }