Add period to names

[tpope-extra.git] / perl / sctweb

diff --git a/perl/sctweb b/perl/sctweb
index 8c1edefb4edf63d5777843505bbe2d0f6ca4aa0a..c32a30fb44fbba43e50d65ad49dee6657674068c 100755 (executable)
--- 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;