X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsctweb;h=2380f31074598f540a57a3845aa1899b2d902ebb;hp=614d63e9bd6272d17407458e0f9753ab319eb17f;hb=201d60c77d17ac518dd9fe1ca214d509e4335e86;hpb=ad64ea6c2071d7a1e262f8a5287e484e225a70e3
diff --git a/perl/sctweb b/perl/sctweb
index 614d63e..2380f31 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -580,11 +580,11 @@ sub do_html_grades {
print "\n";
foreach my $ts ($te->table_states) {
foreach my $row ($ts->rows) {
- map { s/\xa0//g; s/\n/
/g; $_} @$row;
+ map { s/^\s+//; s/\xa0|\r//g; s/\n/
/g; $_} @$row;
$row->[1] = capitalize($row->[1]);
$row->[1] =~ s/&/&/g;
$lastrow=$row;
- next if $row->[0] =~ /:/;
+ next if $row->[0] =~ /:|Current Term|Cumulative/;
print '