From 57c2826cf1125692d62af38a5cdaa75465915e30 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Sat, 7 May 2005 17:12:12 +0000
Subject: [PATCH] Centered grade

---
 perl/sctweb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl/sctweb b/perl/sctweb
index 0381b1d..1ca3d7c 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -583,7 +583,10 @@ sub do_html_grades {
 	    $lastrow=$row;
 	    next if $row->[0] =~ /:/;
 	    print '<tr><td>';
-	    print join('</td><td>', @$row[0 .. 5]);
+	    print $$row[0], '</td><td>', $$row[1], '</td>';
+	    print '<td align="center">', $$row[2], '</td><td>';
+	    #print join('</td><td>', @$row[0 .. 1]);
+	    print join('</td><td>', @$row[3 .. 5]);
 	    print "</td></tr>\n";
 	}
     }
-- 
2.30.2