\1 to $1

[tpope-extra.git] / perl / sctweb

diff --git a/perl/sctweb b/perl/sctweb
index d3a31c6faabde257bfdff02e0c830de185151070..f78ca86858e0cd24680255d756726b5c3bf7c112 100755 (executable)
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -591,7 +591,7 @@ sub do_html_grades {
            $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/;
+           $row->[0] =~ s/Cumulative:(.*) (\d{4}) (.*)/Cumulative:$1 $3 $2/;
            $lastrow=$row;
            next if $row->[0] =~ /:|Current Term/;
            print '<tr class="'.$shade.'">';