Syntax highlighting correction

[tpope-extra.git] / perl / sctweb

diff --git a/perl/sctweb b/perl/sctweb
index d3a31c6faabde257bfdff02e0c830de185151070..6c47ff946e0290280c5649f8962b45f23bca0dc8 100755 (executable)
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -91,7 +91,7 @@ $response = $ua->post("$url&tserve_trans_config=astulog.cfg", { tserve_tip_write
 
 $response = $ua->get("$url&tserve_tip_write=||WID|SID|PIN|Term&tserve_trans_config=" . ("regterm.cfg"||"rgrdterm.cfg")); # Valid terms
 die $response->status_line unless $response->is_success;
-my @terms = grep {s/^<option value="([^"]*)">.*/$1/} (split( /\r\n/, $response->content));
+my @terms = grep {s/^<option value="([^"]*)">.*/$1/} (split( /\r\n/, $response->content)); # "
 if(@terms) {
     $opts{school} = 'accd';
 } else {
@@ -344,7 +344,7 @@ sub get_faculty_email {
        open INS, $ENV{'HOME'} . "/public_html/faculty.csv";
        while($_ = <INS>) {
            chomp;
-           m/"([^"]*)",([^,]*),([^,]*)/;
+           m/"([^"]*)",([^,]*),([^,]*)/; # "
            ($name, $email, $school) = ($1, $2, $3);
            $name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
            $name =~ s/ [A-Z]\.//g;
@@ -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.'">';