version 1.149, 2008/09/16 08:49:08
|
version 1.150, 2008/09/16 13:10:19
|
Line 962 sub html_finish {
|
Line 962 sub html_finish {
|
|
|
sub StudentAverageTotal { |
sub StudentAverageTotal { |
my $Str = '<h3>'.&mt('Summary Tables').'</h3>'.$/; |
my $Str = '<h3>'.&mt('Summary Tables').'</h3>'.$/; |
$Str .= '<table border=2 cellspacing="1">'."\n"; |
$Str .= &Apache::loncommon::start_data_table(); |
$Str .= '<tr>'. |
$Str .= &Apache::loncommon::start_data_table_header_row(). |
'<th>'.&mt('Title').'</th>'. |
'<th>'.&mt('Title').'</th>'. |
'<th>'.&mt('Average').'</th>'. |
'<th>'.&mt('Average').'</th>'. |
'<th>'.&mt('Maximum').'</th>'. |
'<th>'.&mt('Maximum').'</th>'. |
'</tr>'.$/; |
&Apache::loncommon::end_data_table_header_row().$/; |
foreach my $seq (@sequences) { |
foreach my $seq (@sequences) { |
my $symb = $seq->symb; |
my $symb = $seq->symb; |
my $ave; |
my $ave; |
Line 981 sub StudentAverageTotal {
|
Line 981 sub StudentAverageTotal {
|
} |
} |
my $max = $Statistics->{$symb}->{'max'}; |
my $max = $Statistics->{$symb}->{'max'}; |
$ave = sprintf("%.2f",$ave); |
$ave = sprintf("%.2f",$ave); |
$Str .= '<tr><td>'.$seq->compTitle.'</td>'. |
$Str .= &Apache::loncommon::start_data_table_row(). |
|
'<td>'.$seq->compTitle.'</td>'. |
'<td align="right">'.$ave.' </td>'. |
'<td align="right">'.$ave.' </td>'. |
'<td align="right">'.$max.' '.'</td></tr>'."\n"; |
'<td align="right">'.$max.' '.'</td>'. |
|
&Apache::loncommon::end_data_table_row()."\n"; |
} |
} |
$Str .= "</table>\n"; |
$Str .= &Apache::loncommon::end_data_table()."\n"; |
return $Str; |
return $Str; |
} |
} |
|
|
Line 996 sub SingleStudentTotal {
|
Line 998 sub SingleStudentTotal {
|
$student->{'fullname'}, |
$student->{'fullname'}, |
$student->{'username'},$student->{'domain'}).'</h3>'; |
$student->{'username'},$student->{'domain'}).'</h3>'; |
$Str .= $/; |
$Str .= $/; |
$Str .= '<table border=2 cellspacing="1">'."\n"; |
$Str .= &Apache::loncommon::start_data_table()."\n"; |
$Str .= |
$Str .= |
'<tr>'. |
&Apache::loncommon::start_data_table_header_row(). |
'<th>'.&mt('Sequence or Folder').'</th>'; |
'<th>'.&mt('Sequence or Folder').'</th>'; |
if ($chosen_output->{'base'} eq 'tries') { |
if ($chosen_output->{'base'} eq 'tries') { |
$Str .= '<th>'.&mt('Parts Correct').'</th>'; |
$Str .= '<th>'.&mt('Parts Correct').'</th>'; |
} else { |
} else { |
$Str .= '<th>'.&mt('Score').'</th>'; |
$Str .= '<th>'.&mt('Score').'</th>'; |
} |
} |
$Str .= '<th>'.&mt('Maximum').'</th>'."</tr>\n"; |
$Str .= '<th>'.&mt('Maximum').'</th>'. |
|
&Apache::loncommon::end_data_table_header_row()."\n"; |
my $total = 0; |
my $total = 0; |
my $total_max = 0; |
my $total_max = 0; |
foreach my $seq (@sequences) { |
foreach my $seq (@sequences) { |
my $value = $Statistics->{$seq->symb}->{'score'}; |
my $value = $Statistics->{$seq->symb}->{'score'}; |
my $max = $Statistics->{$seq->symb}->{'max'}; |
my $max = $Statistics->{$seq->symb}->{'max'}; |
$Str .= '<tr><td>'.&HTML::Entities::encode($seq->compTitle).'</td>'. |
$Str .= &Apache::loncommon::start_data_table_row(). |
|
'<td>'.&HTML::Entities::encode($seq->compTitle).'</td>'. |
'<td align="right">'.$value.'</td>'. |
'<td align="right">'.$value.'</td>'. |
'<td align="right">'.$max.'</td></tr>'."\n"; |
'<td align="right">'.$max.'</td>'. |
|
&Apache::loncommon::end_data_table_row()."\n"; |
$total += $value; |
$total += $value; |
$total_max +=$max; |
$total_max +=$max; |
} |
} |
$Str .= '<tr><td><b>'.&mt('Total').'</b></td>'. |
$Str .= &Apache::loncommon::start_data_table_row(). |
|
'<td><b>'.&mt('Total').'</b></td>'. |
'<td align="right">'.$total.'</td>'. |
'<td align="right">'.$total.'</td>'. |
'<td align="right">'.$total_max."</td></tr>\n"; |
'<td align="right">'.$total_max.'</td>'. |
$Str .= "</table>\n"; |
&Apache::loncommon::end_data_table_row()."\n"; |
|
$Str .= &Apache::loncommon::end_data_table()."\n"; |
return $Str; |
return $Str; |
} |
} |
|
|