Minor formatting change on HTML grades

diff --git a/perl/sctweb b/perl/sctweb
index 97a21d86e204994561ace77db6c42bc4cd10103a..d3a31c6faabde257bfdff02e0c830de185151070 100755 (executable)
--- 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>';