From: Tim Pope <code@tpope.net>
Date: Sat, 7 May 2005 17:12:12 +0000 (+0000)
Subject: Centered grade
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=57c2826cf1125692d62af38a5cdaa75465915e30

Centered grade
---

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";
 	}
     }