Add period to names

[tpope-extra.git] / perl / sctweb

diff --git a/perl/sctweb b/perl/sctweb
index 7c6f23ea7280b08f616feed7c024eb97cb103072..c32a30fb44fbba43e50d65ad49dee6657674068c 100755 (executable)
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -134,6 +134,8 @@ sub do_html_schedule {
            $row->[0] =~ s/.*launchWebCT\("([^"]*)"\).*/$1/s;
            $row->[0] =~ s/ <BR>(.*)/"<br \/>" . capitalize($1)/eg;
            $row->[1] = capitalize($row->[1]);
+           $row->[1] =~ s/([A-Z]r?)$/$1./;
+           $row->[3] =~ s/-/-<wbr \/>/g;
            $row->[5] =~ s/ON CAMPUS<br \/>//g;
            $row->[5] =~ s/<br \/>/ /g;
            print '<tr><td>';
@@ -145,8 +147,8 @@ sub do_html_schedule {
 }
 
 sub do_html_grades {
-    my @readheaders = ("Section ID", "Course Title", "Grade", "Attempted  Hours", "Earned  Hours", "Quality  Hours", "Quality  Points", "GPA");
-    my @showheaders = ("Section ID", "Course Title", "Grade", "Attempted<br>Hours", "Earned<br>Hours", "Quality<br>Hours", "Quality<br>Points", "GPA");
+    my @readheaders = ("Section ID", "Course Title", "Grade", "Earned  Hours", "Quality  Hours", "Quality  Points", "GPA");
+    my @showheaders = ("Section ID", "Course Title", "Grade", "Earned<br>Hours", "Quality<br>Hours", "Quality<br>Points", "GPA");
     my ($row, $lastrow);
     my $te = new HTML::TableExtract( headers => [ @readheaders ] );
     my $response = $ua->get("$url&tserve_tip_write=||WID|SID|PIN|Term&tserve_trans_config=rgrdterm.cfg"); # Valid grading terms