} elsif ($p =~ /^difficulty(\d+)-(\d+)/) {
$dbh->do('UPDATE scores SET difficulty=? WHERE tournament=? AND round=? AND parallel=? AND player=? AND songnumber=?', undef,
$val, $tournament, $round, $group, $1, $2);
+ } elsif ($p =~ /^song(\d+)-(\d+)/) {
+ $dbh->do('UPDATE scores SET song=? WHERE tournament=? AND round=? AND parallel=? AND player=? AND songnumber=? AND chosen=\'t\'', undef,
+ $val, $tournament, $round, $group, $1, $2);
}
}