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

[minaeibi]

minaeibi		Thu Jan  9 11:37:48 2003 EDT

  Modified files:              
    /loncom/interface/statistics	lonstudentassessment.pm 
  Log:
  Regarding bug #1049 I revised chart slightly.
  if you create a course and, before enrolling students, check CHRT.  The header of
  the page comes with this mesage "No students enrolled or Please Select a student"
  
  
  
  
Index: loncom/interface/statistics/lonstudentassessment.pm
diff -u loncom/interface/statistics/lonstudentassessment.pm:1.25 loncom/interface/statistics/lonstudentassessment.pm:1.26
--- loncom/interface/statistics/lonstudentassessment.pm:1.25	Thu Jan  9 10:59:17 2003
+++ loncom/interface/statistics/lonstudentassessment.pm	Thu Jan  9 11:37:48 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonstudentassessment.pm,v 1.25 2003/01/09 15:59:17 matthew Exp $
+# $Id: lonstudentassessment.pm,v 1.26 2003/01/09 16:37:48 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -139,7 +139,7 @@
             if($Count % 2) {
                 $out .= '<bgcolor="#FFFFFF">';
             } else {
-                $out .= '<bgcolor="#F6F6F6">';
+                $out .= '<bgcolor="#F0F0F0">';
             }
 	    my $displayString = $out.'DISPLAYDATA'.$spacing;
 	    $r->print(&Apache::lonhtmlcommon::FormatStudentInformation(
@@ -173,18 +173,17 @@
             untie(%cache);
         }
     }
-
-    if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
-        $r->print(&StudentAverageTotal(\%cache, $students, $sequenceKeys));
-        untie(%cache);
-    }
-    $r->print('</pre>'."\n");
+    $r->print('</pre>'."\n"); 
     if($selected == 0) {
 	$Str .= '<h3><font color=blue>WARNING: ';
-        $Str .= 'Please select a student</font></h3>';
+        $Str .= 'No Students enrolled OR Please select a student</font></h3>';
         $r->print($Str);
+    } else {
+	if(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
+	    $r->print(&StudentAverageTotal(\%cache, $students, $sequenceKeys));
+	    untie(%cache);
+	}
     }
-
     return;
 }