projects
/
tpope-extra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3720f97
)
More substitutions
author
Tim Pope
<code@tpope.net>
Wed, 24 Nov 2004 02:57:23 +0000
(
02:57
+0000)
committer
Tim Pope
<code@tpope.net>
Wed, 24 Nov 2004 02:57:23 +0000
(
02:57
+0000)
perl/sctweb
patch
|
blob
|
history
diff --git
a/perl/sctweb
b/perl/sctweb
index 08bdbbc781ce9486b2ade00300f36c8b8e745563..da7a83158810853e38173cb192e3c2530bd7b5bd 100755
(executable)
--- a/
perl/sctweb
+++ b/
perl/sctweb
@@
-145,6
+145,7
@@
sub capitalize {
s/\bComp\b/Composition/g;
s/\bFed\b/Federal/g;
s/\bGen\b/General/g;
s/\bComp\b/Composition/g;
s/\bFed\b/Federal/g;
s/\bGen\b/General/g;
+ s/\bIntro\b/Introduction/g;
#s/\bGovt\b/Government/g;
s/\bLit\b/Literature/g;
s/\bPrin\b/Principles/g;
#s/\bGovt\b/Government/g;
s/\bLit\b/Literature/g;
s/\bPrin\b/Principles/g;
@@
-196,7
+197,7
@@
sub get_schedule {
$end =~ s/PM$//;
} else { $end =~ s/AM$//; }
$row->[8] =~ s/(\d\d)-(\d\d)-(\d\d)/20$3$1$2/g;
$end =~ s/PM$//;
} else { $end =~ s/AM$//; }
$row->[8] =~ s/(\d\d)-(\d\d)-(\d\d)/20$3$1$2/g;
- $row->[9] =~ s/
ON CAMPUS\n//
g;
+ $row->[9] =~ s/
(ON|MAIN) CAMPUS\n//i
g;
$row->[9] =~ s/\n/ /g;
push @schedule, {
id => $classid,
$row->[9] =~ s/\n/ /g;
push @schedule, {
id => $classid,