X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsctweb;h=a673d8b57938b43c78014efd868e7e918421eecf;hp=1ca3d7c4fa6044246989c58d09c0d131d8b57db9;hb=05851fb26655b2deb58626f195ad2f4719dc332e;hpb=57c2826cf1125692d62af38a5cdaa75465915e30 diff --git a/perl/sctweb b/perl/sctweb index 1ca3d7c..a673d8b 100755 --- a/perl/sctweb +++ b/perl/sctweb @@ -574,27 +574,29 @@ sub do_html_grades { $te->parse($response->content); } print '
"; - print join(" | ",@showheaders); + print $showheaders[0], ' | '; + print join(' | ',@showheaders[1 .. 5]); print " | ||||
---|---|---|---|---|---|---|---|
'; print $$row[0], ' | ', $$row[1], ' | '; - print '', $$row[2], ' | '; + print ' | '; #print join(' | ', @$row[0 .. 1]); - print join(' | ', @$row[3 .. 5]); + print join(' | ', @$row[2 .. 5]); print " |
', capitalize($lastrow->[0]); #shift @$lastrow; shift @$lastrow; - print " | "; + print ' | '; print $$lastrow[6]; - print " | "; + print ' | '; print join(' | ', @$lastrow[3 .. 5]); print " |