X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsctweb;h=c32a30fb44fbba43e50d65ad49dee6657674068c;hp=8c1edefb4edf63d5777843505bbe2d0f6ca4aa0a;hb=d5ead4e4b6493cd7797103f3a7bc6e637cf22b51;hpb=171627372bcdbb46dc06ad8ce4e2a758abeb905b

diff --git a/perl/sctweb b/perl/sctweb
index 8c1edef..c32a30f 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -134,6 +134,7 @@ 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;