--- loncom/interface/statistics/lonstudentassessment.pm	2002/12/24 21:00:21	1.23
+++ loncom/interface/statistics/lonstudentassessment.pm	2003/01/13 01:34:11	1.27
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonstudentassessment.pm,v 1.23 2002/12/24 21:00:21 minaeibi Exp $
+# $Id: lonstudentassessment.pm,v 1.27 2003/01/13 01:34:11 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -31,7 +31,8 @@
 # YEAR=2002
 # 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei
 # 5/12,5/14,5/15,5/19,5/26,7/16,12/24  Behrouz Minaei
-#
+# YEAR=2003  
+# 1/11  Behrouz Minaei
 ###
 
 package Apache::lonstudentassessment;
@@ -41,12 +42,10 @@ use Apache::lonhtmlcommon;
 use Apache::loncoursedata;
 use GDBM_File;
 
-#my $jr;
 
 sub BuildStudentAssessmentPage {
     my ($cacheDB,$students,$courseID,$formName,$headings,$spacing,
         $studentInformation,$r,$c)=@_;
-#    $jr = $r;
     my %cache;
     unless(tie(%cache,'GDBM_File',$cacheDB,&GDBM_READER(),0640)) {
         $r->print('<html><body>Unable to tie database.</body></html>');
@@ -101,6 +100,7 @@ sub BuildStudentAssessmentPage {
     if($c->aborted()) {  return $Str; }
 
     my $selected=0;
+    my $Count = 0;
     $r->print('<pre>'."\n");
     foreach (@$students) {
         if($c->aborted()) { return $Str; }
@@ -132,8 +132,16 @@ sub BuildStudentAssessmentPage {
                     push(@before, $_);
                 }
             }
-            my $displayString = 'DISPLAYDATA'.$spacing;
-            $r->print(&Apache::lonhtmlcommon::FormatStudentInformation(
+            $Count++;
+	    my $out = '';
+	    $out .= sprintf("%3d) ", $Count);
+            if($Count % 2) {
+                $out .= '<bgcolor="#FFFFFF">';
+            } else {
+                $out .= '<bgcolor="#505050">';
+            }
+	    my $displayString = $out.'DISPLAYDATA'.$spacing;
+	    $r->print(&Apache::lonhtmlcommon::FormatStudentInformation(
                                                          \%cache, $_,
                                                          \@before,
                                                          $displayString,
@@ -164,24 +172,21 @@ sub BuildStudentAssessmentPage {
             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;
 }
 
 
-
-
 #---- Student Assessment Web Page --------------------------------------------
 
 sub CreateInterface {
@@ -238,16 +243,19 @@ sub CreateTableHeadings {
     my($cache,$spacing,$infoKeys,$infoHeadings,$sequenceKeys,
        $sequenceHeadings)=@_;
 
+#    my $Str = '&nbsp&nbsp&nbsp&nbsp&nbsp';
     my $Str = '';
     $Str .= '<table border="0" cellpadding="0" cellspacing="0">'."\n";
-
     $Str .= '<tr>'."\n";
+    $Str .= '<td><pre>     </pre></td>'."\n";
     $Str .= &CreateColumnSelectors($infoHeadings, $sequenceHeadings,
                                    $sequenceKeys);
     $Str .= '<td></td></tr>'."\n";
 
     $Str .= '<tr>'."\n";
-    my $displayString = '<td align="left"><pre><a href="/adm/statistics?';
+    my $displayString = '';
+    $displayString .= '<td><pre>     </pre></td>'."\n";
+    $displayString .= '<td align="left"><pre><a href="/adm/statistics?';
     $displayString .= 'sort=LINKDATA">DISPLAYDATA</a>FORMATTING';
     $displayString .= $spacing.'</pre></td>'."\n";
     $Str .= &Apache::lonhtmlcommon::CreateHeadings($cache,
@@ -415,10 +423,16 @@ sub StudentAverageTotal {
 	$ProblemsSolved += $cache->{$name.':problemsSolved'};
         $TotalProblems += $cache->{$name.':totalProblems'};
     }
-    $ProblemsSolved /= $StudentCount;
-    $TotalProblems /= $StudentCount;
-    
-    $Str .= '<table border=2 cellspacing="5">'."\n";
+    if ($StudentCount) { 
+        $ProblemsSolved = sprintf( "%.2f", 
+                             $ProblemsSolved/$StudentCount);
+        $TotalProblems /= $StudentCount;
+    } else {
+        $ProblemsSolved = 0;
+        $TotalProblems  = 0;
+    }
+
+    $Str .= '<table border=2 cellspacing="1">'."\n";
     $Str .= '<tr><td><b>Students Count</b></td><td><b>'.
             $StudentCount.'</b></td></tr>'."\n";
     $Str .= '<tr><td><b>Total Problems</b></td><td><b>'.
@@ -427,16 +441,21 @@ sub StudentAverageTotal {
             $ProblemsSolved.'</b></td></tr>'."\n";
     $Str .= '</table>'."\n";
 
-    $Str .= '<table border=2 cellspacing="5">'."\n";
+    $Str .= '<table border=2 cellspacing="1">'."\n";
     $Str .= '<tr><th>Title</th><th>Total Problems</th>'.
             '<th>Average Correct</th></tr>'."\n";
     foreach my $S(@$sequenceKeys) {
         my $title=$cache->{$S.':title'};
 	#$Str .= $cache->{$S.':problems'};
-	#my @problems=split(':', $cache->{$S.':problems'}); 
+	#my @problems=split(':', $cache->{$S.':problems'});
 	#my $pCount=scalar @problems;
 	my $pCount=MaxSeqPr($cache,@$students[0],$S);
-	my $crr=sprintf( "%.2f", $Correct{$S}/$StudentCount );
+        my $crr;
+	if ($StudentCount) {
+            $crr=sprintf( "%.2f", $Correct{$S}/$StudentCount );
+        } else {
+            $crr="0.00";
+        }
         $Str .= '<tr><td>'.$title.
                 '</td><td align=center>'.$pCount.
                 '</td><td align=center>'.$crr.

Students Count	'. $StudentCount.'
Total Problems	'. @@ -427,16 +441,21 @@ sub StudentAverageTotal { $ProblemsSolved.'