version 1.148, 2008/09/14 15:16:30
|
version 1.150, 2008/09/16 13:10:19
|
Line 849 sub html_outputstudent {
|
Line 849 sub html_outputstudent {
|
} else { |
} else { |
my $error = $1; |
my $error = $1; |
if (scalar(@tmp) < 1) { |
if (scalar(@tmp) < 1) { |
$Str .= '<font color="blue">No Course Data</font>'."\n"; |
$Str .= '<span class="LC_warning">' |
|
.&mt('No Course Data') |
|
.'</span>'."\n"; |
} else { |
} else { |
$Str .= '<span class="LC_error">Error getting student data ('. |
$Str .= '<span class="LC_error">' |
$error.') </span>'."\n"; |
.&mt('Error getting student data ([_1])',$error) |
|
.'</span>'."\n"; |
} |
} |
$nodata_count++; |
$nodata_count++; |
$r->print($Str); |
$r->print($Str); |
Line 959 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 978 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 993 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; |
} |
} |
|
|