Centered grade

[tpope-extra.git] / perl / sctweb

diff --git a/perl/sctweb b/perl/sctweb
index 0381b1dfa0de0e4c9065caf8ed3a6f37f13afa90..1ca3d7c4fa6044246989c58d09c0d131d8b57db9 100755 (executable)
--- 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";
        }
     }