From 201d60c77d17ac518dd9fe1ca214d509e4335e86 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Wed, 6 Jul 2005 02:11:46 +0000
Subject: [PATCH] Grr, freakin' carriage returns...

---
 perl/sctweb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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 "</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">';
-- 
2.30.2