Allow a mix of long and short names in the display of the chosen songs.

[ccbs] / html / do-reset-randomsongs.pl

#! /usr/bin/perl

use ccbs;
use strict;
use warnings;

my $dbh = ccbs::db_connect();
my $cgi = new CGI;

$dbh->do('DELETE FROM randomsongsused');

ccbs::print_see_other('randomsongs.pl');

$dbh->disconnect;