X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsctweb;h=d3a31c6faabde257bfdff02e0c830de185151070;hp=97a21d86e204994561ace77db6c42bc4cd10103a;hb=ebc54fb51c2291c3dcb51ccc7ba259cacf69f4aa;hpb=bff727c51d3ecc81de3e4d937c06416709b6efa3
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/
/g; $_} @$row;
$row->[1] = capitalize($row->[1]);
$row->[1] =~ s/&/&/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 '