From 48ed0d08a0ed945055eb12d75c9f5677368dc9ba Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Wed, 10 Aug 2005 23:26:31 +0000
Subject: [PATCH] \1 to $1

---
 perl/sctweb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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