From 05851fb26655b2deb58626f195ad2f4719dc332e Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Sat, 7 May 2005 17:32:44 +0000
Subject: [PATCH] Yet more tweaking of grade formatting

---
 perl/sctweb | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/perl/sctweb b/perl/sctweb
index 1ca3d7c..a673d8b 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -574,27 +574,29 @@ sub do_html_grades {
 	$te->parse($response->content);
     }
     print '<table cellpadding="3" cellspacing="0">'."\n<tr><th>";
-    print join("</th><th>",@showheaders);
+    print $showheaders[0], '</th><th>';
+    print join('</th><th>',@showheaders[1 .. 5]);
     print "</th></tr>\n";
     foreach my $ts ($te->table_states) {
 	foreach my $row ($ts->rows) {
 	    map { s/\xa0//g; s/\n/<br \/>/g; $_} @$row;
 	    $row->[1] = capitalize($row->[1]);
+	    $row->[1] =~ s/&/&amp;/g;
 	    $lastrow=$row;
 	    next if $row->[0] =~ /:/;
 	    print '<tr><td>';
 	    print $$row[0], '</td><td>', $$row[1], '</td>';
-	    print '<td align="center">', $$row[2], '</td><td>';
+	    print '<td align="center">';
 	    #print join('</td><td>', @$row[0 .. 1]);
-	    print join('</td><td>', @$row[3 .. 5]);
+	    print join('</td><td>', @$row[2 .. 5]);
 	    print "</td></tr>\n";
 	}
     }
     print '<tr><td colspan="2">', capitalize($lastrow->[0]);
     #shift @$lastrow; shift @$lastrow;
-    print "</td><td>";
+    print '</td><td align="center">';
     print $$lastrow[6];
-    print "</td><td>";
+    print '</td><td>';
     print join('</td><td>', @$lastrow[3 .. 5]);
     print "</td></tr>\n";
     print "</table>\n";
-- 
2.30.2