From ebc54fb51c2291c3dcb51ccc7ba259cacf69f4aa Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Wed, 6 Jul 2005 02:37:22 +0000
Subject: [PATCH] Minor formatting change on HTML grades

---
 perl/sctweb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/perl/sctweb b/perl/sctweb
index 97a21d8..d3a31c6 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -590,8 +590,10 @@ sub do_html_grades {
 	    map { s/^\s+//; s/\xa0|\r//g; s/\n/<br \/>/g; $_} @$row;
 	    $row->[1] = capitalize($row->[1]);
 	    $row->[1] =~ s/&/&amp;/g;
+	    $row->[0] =~ s/Cumulative through/Cumulative: through/;
+	    $row->[0] =~ s/Cumulative:(.*) (\d{4}) (.*)/Cumulative:\1 \3 \2/;
 	    $lastrow=$row;
-	    next if $row->[0] =~ /:|Current Term|Cumulative/;
+	    next if $row->[0] =~ /:|Current Term/;
 	    print '<tr class="'.$shade.'">';
 	    $shade = ($shade eq "dark"?"light":"dark");
 	    print '<td align="left" class="sectionid">', $$row[0], '</td>';
-- 
2.30.2