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

[minaeibi]

minaeibi		Mon Jul 29 17:00:54 2002 EDT

  Modified files:              
    /loncom/interface	lonstatistics.pm 
  Log:
  Fixed a bug:
  Removed color of statistics table from this file and added to lonproblemstatistics.pm
  
  
  
Index: loncom/interface/lonstatistics.pm
diff -u loncom/interface/lonstatistics.pm:1.34 loncom/interface/lonstatistics.pm:1.35
--- loncom/interface/lonstatistics.pm:1.34	Fri Jul 26 15:49:26 2002
+++ loncom/interface/lonstatistics.pm	Mon Jul 29 17:00:53 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonstatistics.pm,v 1.34 2002/07/26 19:49:26 stredwic Exp $
+# $Id: lonstatistics.pm,v 1.35 2002/07/29 21:00:53 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -31,7 +31,7 @@
 # 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei
 # 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,25/7  Behrouz Minaei
+# 5/12,5/14,5/15,5/19,5/26,7/16,25/7,29/7  Behrouz Minaei
 #
 ###
 
@@ -51,7 +51,6 @@
 use HTML::TokeParser;
 use GDBM_File;
 
-#my $jr;
 
 sub CheckFormElement {
     my ($cache, $ENVName, $cacheName, $default)=@_;
@@ -435,26 +434,6 @@
     $r->rflush(); 
 }
 
-# For loading the colored table for display or un-colored for print
-sub setbgcolor {
-    my $PrintTable=shift;
-    my %color;
-    if ($PrintTable){
-	$color{"gb"}="#FFFFFF";
-	$color{"red"}="#FFFFFF";
-	$color{"yellow"}="#FFFFFF";
-	$color{"green"}="#FFFFFF";
-	$color{"purple"}="#FFFFFF";
-    } else {
-	$color{"gb"}="#DDFFFF";
-	$color{"red"}="#FFDDDD";
-	$color{"yellow"}="#EEFFCC";
-	$color{"green"}="#DDFFDD";
-	$color{"purple"}="#FFDDFF";
-    }
-
-    return \%color;
-}
 
 sub BuildClasslist {
     my ($cacheDB,$students,$studentInformation,$headings)=@_;
@@ -570,7 +549,6 @@
     my $cacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}".
                   "_$ENV{'user.domain'}_$courseID\_statistics.db";
 
-    my %color=&setbgcolor(0);
     my ($returnValue, $students) = &PrepareData($c, $cacheDB, 
                                                 \@studentInformation, 
                                                 \@headings);
@@ -608,8 +586,7 @@
         &Apache::lonproblemstatistics::BuildProblemStatisticsPage($cacheDB, 
                                                                   $students, 
                                                                   $courseID, 
-                                                                  $c,$r,
-								  \%color));
+                                                                  $c,$r));
     } elsif($GoToPage eq 'Problem Analysis') {
         $r->print(
               &Apache::lonproblemanalysis::BuildProblemAnalysisPage($cacheDB));