if ($p =~ /^score(\d+)-(\d+)/) {
$dbh->do('UPDATE scores SET score=? WHERE tournament=? AND round=? AND parallel=? AND player=? AND songnumber=?', undef,
$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);
}
}