[LON-CAPA-cvs] cvs: loncom /interface lonquickgrades.pm

www lon-capa-cvs@mail.lon-capa.org
Sat, 01 Jan 2005 18:54:52 -0000


www		Sat Jan  1 13:54:52 2005 EDT

  Modified files:              
    /loncom/interface	lonquickgrades.pm 
  Log:
  Bug #3729: in external grading mode, "parts done" etc is confusing to the
  students.
  
  
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.33 loncom/interface/lonquickgrades.pm:1.34
--- loncom/interface/lonquickgrades.pm:1.33	Sat Dec 11 18:33:05 2004
+++ loncom/interface/lonquickgrades.pm	Sat Jan  1 13:54:52 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.33 2004/12/11 23:33:05 albertel Exp $
+# $Id: lonquickgrades.pm,v 1.34 2005/01/01 18:54:52 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -273,15 +273,16 @@
         $r->print("$topLevelRight / $topLevelParts</td></tr>");
     }
 
-    my $maxHelpLink = Apache::loncommon::help_open_topic("Quick_Grades_Possibly_Correct");
-
-    $title = $showPoints ? "Points" : "Parts Done";
-
-    $r->print("<tr><td colspan='2' align='right'>Total $title: <b>$totalRight</b><br>");
-    $r->print(&mt("Max Possible To Date")." $maxHelpLink: <b>$totalPossible</b><br>");
-    $title = $showPoints ? "Points" : "Parts";
-    $r->print(&mt("Total $title In Course").": <b>$totalParts</b></td></tr>\n\n");
+    unless ($notshowSPRSlink) {
+	my $maxHelpLink = Apache::loncommon::help_open_topic("Quick_Grades_Possibly_Correct");
 
+	$title = $showPoints ? "Points" : "Parts Done";
+	
+	$r->print("<tr><td colspan='2' align='right'>Total $title: <b>$totalRight</b><br>");
+	$r->print(&mt("Max Possible To Date")." $maxHelpLink: <b>$totalPossible</b><br>");
+	$title = $showPoints ? "Points" : "Parts";
+	$r->print(&mt("Total $title In Course").": <b>$totalParts</b></td></tr>\n\n");
+    }
 
     $r->print("</table></body></html>");