From: Tim Pope <code@tpope.net>
Date: Wed, 10 Aug 2005 23:26:31 +0000 (+0000)
Subject: \1 to $1
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=48ed0d08a0ed945055eb12d75c9f5677368dc9ba

\1 to $1
---

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.'">';