projects
/
tpope-extra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
57c2826
)
Yet more tweaking of grade formatting
author
Tim Pope
<code@tpope.net>
Sat, 7 May 2005 17:32:44 +0000
(17:32 +0000)
committer
Tim Pope
<code@tpope.net>
Sat, 7 May 2005 17:32:44 +0000
(17:32 +0000)
perl/sctweb
patch
|
blob
|
history
diff --git
a/perl/sctweb
b/perl/sctweb
index 1ca3d7c4fa6044246989c58d09c0d131d8b57db9..a673d8b57938b43c78014efd868e7e918421eecf 100755
(executable)
--- a/
perl/sctweb
+++ b/
perl/sctweb
@@
-574,27
+574,29
@@
sub do_html_grades {
$te->parse($response->content);
}
print '<table cellpadding="3" cellspacing="0">'."\n<tr><th>";
$te->parse($response->content);
}
print '<table cellpadding="3" cellspacing="0">'."\n<tr><th>";
- print join("</th><th>",@showheaders);
+ print $showheaders[0], '</th><th>';
+ print join('</th><th>',@showheaders[1 .. 5]);
print "</th></tr>\n";
foreach my $ts ($te->table_states) {
foreach my $row ($ts->rows) {
map { s/\xa0//g; s/\n/<br \/>/g; $_} @$row;
$row->[1] = capitalize($row->[1]);
print "</th></tr>\n";
foreach my $ts ($te->table_states) {
foreach my $row ($ts->rows) {
map { s/\xa0//g; s/\n/<br \/>/g; $_} @$row;
$row->[1] = capitalize($row->[1]);
+ $row->[1] =~ s/&/&/g;
$lastrow=$row;
next if $row->[0] =~ /:/;
print '<tr><td>';
print $$row[0], '</td><td>', $$row[1], '</td>';
$lastrow=$row;
next if $row->[0] =~ /:/;
print '<tr><td>';
print $$row[0], '</td><td>', $$row[1], '</td>';
- print '<td align="center">'
, $$row[2], '</td><td>'
;
+ print '<td align="center">';
#print join('</td><td>', @$row[0 .. 1]);
#print join('</td><td>', @$row[0 .. 1]);
- print join('</td><td>', @$row[
3
.. 5]);
+ print join('</td><td>', @$row[
2
.. 5]);
print "</td></tr>\n";
}
}
print '<tr><td colspan="2">', capitalize($lastrow->[0]);
#shift @$lastrow; shift @$lastrow;
print "</td></tr>\n";
}
}
print '<tr><td colspan="2">', capitalize($lastrow->[0]);
#shift @$lastrow; shift @$lastrow;
- print
"</td><td>"
;
+ print
'</td><td align="center">'
;
print $$lastrow[6];
print $$lastrow[6];
- print
"</td><td>"
;
+ print
'</td><td>'
;
print join('</td><td>', @$lastrow[3 .. 5]);
print "</td></tr>\n";
print "</table>\n";
print join('</td><td>', @$lastrow[3 .. 5]);
print "</td></tr>\n";
print "</table>\n";