9 my $dbh = ccbs::db_connect();
12 # This is ugly, but we don't need more than one people updating this at a
13 # time anyhow (we hope).
14 $dbh->{AutoCommit} = 0;
15 $dbh->{RaiseError} = 1;
16 $dbh->do('DELETE FROM songshorttitles');
18 for my $p ($cgi->param()) {
19 $p =~ /^st(\d+)$/ or next;
21 my $st = $cgi->param($p);
23 my $q = $dbh->prepare('INSERT INTO songshorttitles (song, shorttitle) VALUES (?, ?)');
25 $q->execute($num, $st);
29 # This will make the big screen use the new short titles, if it needs them
30 $dbh->do('NOTIFY scores');
36 ccbs::print_see_other('shorttitles.pl');