|
version 1.219, 2005/11/08 17:53:20
|
version 1.220, 2005/11/08 20:23:27
|
|
Line 659 sub analyze {
|
Line 659 sub analyze {
|
| foreach my $part (sort(keys(%allparts))) { |
foreach my $part (sort(keys(%allparts))) { |
| if (defined(@{ $overall{$part.'.answer'} })) { |
if (defined(@{ $overall{$part.'.answer'} })) { |
| my $num_cols=scalar(@{ $overall{$part.'.answer'}->[0] }); |
my $num_cols=scalar(@{ $overall{$part.'.answer'}->[0] }); |
| $request->print('<table border="1"><tr><th colspan="'.($num_cols+1).'">'.&mt('Part').' '.$part.'</th></tr>'); |
$request->print('<table border="1" class="thinborder"><tr><th colspan="'.($num_cols+1).'">'.&mt('Part').' '.$part.'</th></tr>'); |
| my %frequency; |
my %frequency; |
| foreach my $answer (sort {$a->[0] <=> $b->[0]} (@{ $overall{$part.'.answer'} })) { |
foreach my $answer (sort {$a->[0] <=> $b->[0]} (@{ $overall{$part.'.answer'} })) { |
| $frequency{join("\0",@{ $answer })}++; |
$frequency{join("\0",@{ $answer })}++; |
|
Line 667 sub analyze {
|
Line 667 sub analyze {
|
| $request->print('<tr><th colspan="'.($num_cols).'">'.&mt('Answer').'</th><th>'.&mt('Frequency').'<br />(' |
$request->print('<tr><th colspan="'.($num_cols).'">'.&mt('Answer').'</th><th>'.&mt('Frequency').'<br />(' |
| .&mt('click for example').')</th></tr>'); |
.&mt('click for example').')</th></tr>'); |
| foreach my $answer (sort {(split("\0",$a))[0] <=> (split("\0",$b))[0]} (keys(%frequency))) { |
foreach my $answer (sort {(split("\0",$a))[0] <=> (split("\0",$b))[0]} (keys(%frequency))) { |
| $request->print('<tr><td>'. |
$request->print('<tr><td class="center">'. |
| join('</td><td>',split("\0",$answer)). |
join('</td><td class="center">',split("\0",$answer)). |
| '</td><td><a href="'.$request->uri.'?rndseed='.$seedexample{$answer}.'">'.$frequency{$answer}. |
'</td><td class="center"><a href="'.$request->uri.'?rndseed='.$seedexample{$answer}.'">'.$frequency{$answer}. |
| '</a></td></tr>'); |
'</a></td></tr>'); |
| } |
} |
| $request->print('</table>'); |
$request->print('</table>'); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhomework.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework