[BACK]Return to lonquickgrades.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonquickgrades.pm between versions 1.40 and 1.42

version 1.40, 2006/03/15 22:11:04 version 1.42, 2008/08/17 23:25:40
Line 92  score sheet</a>.</p> Line 92  score sheet</a>.</p>
 HEADER  HEADER
     }      }
   
     $r->print("This may take a few moments to display.");      $r->print(&mt('This may take a few moments to display.'));
   
     $r->rflush();      $r->rflush();
   
Line 145  HEADER Line 145  HEADER
     my $score = 0;      my $score = 0;
     # If we're not telling status and the answer date isn't passed yet,       # If we're not telling status and the answer date isn't passed yet, 
     # it's an "attempted" point      # 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)) {   ($dateStatus != $curRes->ANSWER_OPEN)) {
  my $status = $curRes->simpleStatus($part);   my $status = $curRes->simpleStatus($part);
  if ($status == $curRes->ATTEMPTED) {   if ($status == $curRes->ATTEMPTED) {
Line 275  HEADER Line 276  HEADER
  my $maxHelpLink = Apache::loncommon::help_open_topic("Quick_Grades_Possibly_Correct");   my $maxHelpLink = Apache::loncommon::help_open_topic("Quick_Grades_Possibly_Correct");
   
  $title = $showPoints ? "Points" : "Parts Done";   $title = $showPoints ? "Points" : "Parts Done";
    my $totaltitle = $showPoints ? &mt("Awarded Total Points") : &mt("Total Parts Done");
  $r->print("<tr><td colspan='2' align='right'>Total $title: <b>$totalRight</b><br>");   $r->print("<tr><td colspan='2' align='right'>$totaltitle: <b>$totalRight</b><br>");
  $r->print(&mt("Max Possible To Date")." $maxHelpLink: <b>$totalPossible</b><br>");   $r->print(&mt("Max Possible To Date")." $maxHelpLink: <b>$totalPossible</b><br>");
  $title = $showPoints ? "Points" : "Parts";   $title = $showPoints ? "Points" : "Parts";
  $r->print(&mt("Total $title In Course").": <b>$totalParts</b></td></tr>\n\n");   $r->print(&mt("Total $title In Course").": <b>$totalParts</b></td></tr>\n\n");
Removed from v.1.40  
changed lines
  Added in v.1.42

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>