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

matthew lon-capa-cvs@mail.lon-capa.org
Fri, 10 Oct 2003 21:49:20 -0000


matthew		Fri Oct 10 17:49:20 2003 EDT

  Modified files:              
    /loncom/interface/statistics	lonproblemanalysis.pm 
  Log:
  Put those headers on the table and not in some random array....
  
  
Index: loncom/interface/statistics/lonproblemanalysis.pm
diff -u loncom/interface/statistics/lonproblemanalysis.pm:1.31 loncom/interface/statistics/lonproblemanalysis.pm:1.32
--- loncom/interface/statistics/lonproblemanalysis.pm:1.31	Fri Oct 10 17:45:34 2003
+++ loncom/interface/statistics/lonproblemanalysis.pm	Fri Oct 10 17:49:20 2003
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonproblemanalysis.pm,v 1.31 2003/10/10 21:45:34 matthew Exp $
+# $Id: lonproblemanalysis.pm,v 1.32 2003/10/10 21:49:20 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -133,10 +133,9 @@
     }
     #
     # Build up the table of row labels.
-    my @Rows;
-    $Rows[0]= [ '<th>'.&mt('Foil Number').'</th>', 
-                '<th>'.&mt('Foil Text').'</td>'];
     my $table = '<table border="1" >'."\n";
+    $table .= '<tr><th>'.&mt('Foil Number').'</th>'.
+        '<th>'.&mt('Foil Text')."</th></tr>\n";
     my $index = 1;
     foreach my $foilid (@Foils) {
         $table .= '<tr><td>'.$index.'</td>'.