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:
4d87083
)
Syntax highlighting fix
author
Tim Pope
<code@tpope.net>
Thu, 11 Aug 2005 02:08:05 +0000
(
02:08
+0000)
committer
Tim Pope
<code@tpope.net>
Thu, 11 Aug 2005 02:08:05 +0000
(
02:08
+0000)
perl/sctweb
patch
|
blob
|
history
diff --git
a/perl/sctweb
b/perl/sctweb
index c1d82d6d8220e0bf1fe3b7c0da92a82ad35d9299..6c47ff946e0290280c5649f8962b45f23bca0dc8 100755
(executable)
--- a/
perl/sctweb
+++ b/
perl/sctweb
@@
-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;