projects
/
tpope-extra.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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>';
$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";
}
}
print "</td></tr>\n";
}
}