- $cgi->param($p), $tournament, $round, $group, $1, $2);
+ $val, $tournament, $round, $group, $1, $2);
+ } elsif ($p =~ /^playmode(\d+)-(\d+)/) {
+ $dbh->do('UPDATE scores SET playmode=? WHERE tournament=? AND round=? AND parallel=? AND player=? AND songnumber=?', undef,
+ $val, $tournament, $round, $group, $1, $2);
+ } 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);