X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsctweb;h=1ca3d7c4fa6044246989c58d09c0d131d8b57db9;hp=0381b1dfa0de0e4c9065caf8ed3a6f37f13afa90;hb=57c2826cf1125692d62af38a5cdaa75465915e30;hpb=4c7498e51032cc2dd9b8e20ad9c5f6e083b2b523

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