--- loncom/interface/statistics/lonproblemanalysis.pm	2003/10/10 21:45:34	1.31
+++ loncom/interface/statistics/lonproblemanalysis.pm	2003/10/10 21:49:20	1.32
@@ -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 @@ sub DoTriesAnalysis {
     }
     #
     # 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>'.