# Swoop all the data in in a big join, then order it over to quasi-sane Perl objects.
# (round -> parallel -> player -> songs -> title,chosen,score)
my $scores = ccbs::db_fetch_all($dbh,
- 'SELECT round,parallel,position,playmode,difficulty,songnumber,nick,song,title,chosen,score FROM roundparticipation NATURAL JOIN players NATURAL JOIN scores NATURAL LEFT JOIN songs WHERE tournament=? ORDER BY round,parallel,position,songnumber',
+ 'SELECT round,parallel,position,playmode,difficulty,songnumber,player,nick,song,title,chosen,score FROM roundparticipation NATURAL JOIN players NATURAL JOIN scores NATURAL LEFT JOIN songs WHERE tournament=? ORDER BY round,parallel,position,songnumber',
$id);
my @rounds = ();
<th>[% pl.nick %]</th>
[% FOR s = pl.songs %]
<td nowrap="nowrap">
- <input name="score[% s.songnumber %]" value="[% s.score %]" size="5" />
- <select name="playmode[% s.songnumber %]">
+ <input name="score[% pl.player %]-[% s.songnumber %]" value="[% s.score %]" size="5" />
+ <select name="playmode[% pl.player %]-[% s.songnumber %]">
<option value=""> </option>
[% IF s.playmode == 'single' %]
<option value="single" selected="selected">S</option>
<option value="double">D</option>
[% END %]
</select>
- <select name="difficulty[% s.songnumber %]">
+ <select name="difficulty[% pl.player %]-[% s.songnumber %]">
<option value=""> </option>
[% IF s.difficulty == 'beginner' %]
<option value="beginner" selected="selected">B</option>
</td>
[% IF s.chosen %]
<td>
- <select name="song[% s.songnumber %]">
+ <select name="song[% s.player %]-[% s.songnumber %]">
<option value=""> </option>
[% FOR ss = songs %]
[% IF s.song == ss.song %]