--- loncom/interface/lonquickgrades.pm 2006/03/15 22:11:04 1.40
+++ loncom/interface/lonquickgrades.pm 2008/12/12 18:44:32 1.43.2.1
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Quick Student Grades Display
#
-# $Id: lonquickgrades.pm,v 1.40 2006/03/15 22:11:04 albertel Exp $
+# $Id: lonquickgrades.pm,v 1.43.2.1 2008/12/12 18:44:32 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -85,14 +85,15 @@ sub real_handler {
$r->print(&Apache::loncommon::start_page($title));
if (!$showPoints && !$notshowSPRSlink ) {
- $r->print(<
' + .&mt('This screen shows how many problems (or problem parts) you have completed' + .', and how many you have not yet done.' + .' You can also look at [_1]a detailed score sheet[_2].' + ,'','') + .'
'); } - $r->print("This may take a few moments to display."); + $r->print(''.&mt('This may take a few moments to display.').'
'); $r->rflush(); @@ -145,7 +146,8 @@ HEADER my $score = 0; # If we're not telling status and the answer date isn't passed yet, # it's an "attempted" point - if ($curRes->problemstatus($part) eq 'no' && + if ((($curRes->problemstatus($part) eq 'no') || + ($curRes->problemstatus($part) eq 'no_feedback_ever')) && ($dateStatus != $curRes->ANSWER_OPEN)) { my $status = $curRes->simpleStatus($part); if ($status == $curRes->ATTEMPTED) { @@ -222,14 +224,15 @@ HEADER my $indentString = ' '; # Second pass: Print the maps. - $r->print('' . - &mt('Folder') . ' | '); + $r->print(&Apache::loncommon::start_data_table() + .&Apache::loncommon::start_data_table_header_row() + .''.&mt('Folder').' | '); $title = &mt($showPoints ? "Points Scored" : "Done"); if ($totalAttempted) { $title .= " / " . &mt("Attempted"); } - $r->print("$title / " - . &mt('Total') . " | |
---|---|---|---|
$title / ".&mt('Total').'' + .&Apache::loncommon::end_data_table_header_row()); while ($depth > 0) { if ($curRes == $iterator->BEGIN_MAP()) {$depth++;} if ($curRes == $iterator->END_MAP()) { $depth--; } @@ -245,17 +248,29 @@ HEADER my $ratio; $ratio = $correct / $total; my $color = mixColors(\@start, \@end, $ratio); - $r->print(" | |||
"); + $r->print(&Apache::loncommon::start_data_table_row() + .' | '); my $thisIndent = ''; for (my $i = 1; $i < $depth; $i++) { $thisIndent .= $indentString; } $r->print("$thisIndent$title | "); - if ($totalAttempted) { - $r->print("$thisIndent | $thisIndent | \n");
- }
+ if ($totalAttempted) {
+ $r->print('' + .$thisIndent + .'' + .$correct.' / '.$attempted.' / '.$total + .' | ' + .&Apache::loncommon::end_data_table_row() + ); + } else { + $r->print('' + .$thisIndent + .'' + .$correct.' / '.$total + .' | ' + .&Apache::loncommon::end_data_table_row()); + } } } @@ -266,23 +281,28 @@ HEADER if ($topLevelParts > 0) { my $ratio = $topLevelRight / $topLevelParts; my $color = mixColors(\@start, \@end, $ratio); - $r->print("
"); + $r->print(&Apache::loncommon::start_data_table_row() + .' | '); $r->print(&mt("Problems Not Contained In A Folder")." | "); - $r->print("$topLevelRight / $topLevelParts | |
Total $title: $totalRight "); + my $totaltitle = $showPoints ? &mt("Awarded Total Points") : &mt("Total Parts Done"); + $r->print(&Apache::loncommon::start_data_table_row() + .' | '.$totaltitle.': '.$totalRight.' '); $r->print(&mt("Max Possible To Date")." $maxHelpLink: $totalPossible "); $title = $showPoints ? "Points" : "Parts"; - $r->print(&mt("Total $title In Course").": $totalParts |