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:
ad64ea6
)
Grr, freakin' carriage returns...
author
Tim Pope
<code@tpope.net>
Wed, 6 Jul 2005 02:11:46 +0000
(
02:11
+0000)
committer
Tim Pope
<code@tpope.net>
Wed, 6 Jul 2005 02:11:46 +0000
(
02:11
+0000)
perl/sctweb
patch
|
blob
|
history
diff --git
a/perl/sctweb
b/perl/sctweb
index 614d63e9bd6272d17407458e0f9753ab319eb17f..2380f31074598f540a57a3845aa1899b2d902ebb 100755
(executable)
--- a/
perl/sctweb
+++ b/
perl/sctweb
@@
-580,11
+580,11
@@
sub do_html_grades {
print "</th></tr>\n";
foreach my $ts ($te->table_states) {
foreach my $row ($ts->rows) {
print "</th></tr>\n";
foreach my $ts ($te->table_states) {
foreach my $row ($ts->rows) {
- map { s/
\xa0
//g; s/\n/<br \/>/g; $_} @$row;
+ map { s/
^\s+//; s/\xa0|\r
//g; s/\n/<br \/>/g; $_} @$row;
$row->[1] = capitalize($row->[1]);
$row->[1] =~ s/&/&/g;
$lastrow=$row;
$row->[1] = capitalize($row->[1]);
$row->[1] =~ s/&/&/g;
$lastrow=$row;
- next if $row->[0] =~ /:/;
+ next if $row->[0] =~ /:
|Current Term|Cumulative
/;
print '<tr><td>';
print $$row[0], '</td><td>', $$row[1], '</td>';
print '<td align="center">';
print '<tr><td>';
print $$row[0], '</td><td>', $$row[1], '</td>';
print '<td align="center">';