projects
/
tpope-extra.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Syntax highlighting fix
[tpope-extra.git]
/
perl
/
sctweb
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;
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;
($name, $email, $school) = ($1, $2, $3);
$name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
$name =~ s/ [A-Z]\.//g;