+
+ $group = 1;
+ for my $g (@ngroups) {
+ my @gpeople = reverse @$g;
+ for my $position (0..$#gpeople) {
+ $dbh->do('INSERT INTO roundparticipation (tournament, round, parallel, player, position) VALUES (?, ?, ?, ?, ?)', undef,
+ $tournament, $round, $group, $gpeople[$position], $position + 1);
+ }
+ $group++;
+ }