Grr, freakin' carriage returns...

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) {
-           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/&/&amp;/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">';