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:
9cf1dcb
)
Reversed school and email fields in faculty
author
Tim Pope
<code@tpope.net>
Fri, 10 Sep 2004 22:39:50 +0000
(22:39 +0000)
committer
Tim Pope
<code@tpope.net>
Fri, 10 Sep 2004 22:39:50 +0000
(22:39 +0000)
perl/sctweb
patch
|
blob
|
history
diff --git
a/perl/sctweb
b/perl/sctweb
index d9f9eff52a9ccff739a8a20fc629455ad909d61b..aa91c493a1a62e5c084eb3b3964c3d71019424db 100755
(executable)
--- a/
perl/sctweb
+++ b/
perl/sctweb
@@
-220,7
+220,7
@@
sub get_faculty_email {
while($_ = <INS>) {
chomp;
m/"([^"]*)",([^,]*),([^,]*)/;
while($_ = <INS>) {
chomp;
m/"([^"]*)",([^,]*),([^,]*)/;
- ($name, $
school, $emai
l) = ($1, $2, $3);
+ ($name, $
email, $schoo
l) = ($1, $2, $3);
$name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
$name =~ s/ [A-Z]\.//g;
$name = lc $name;
$name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
$name =~ s/ [A-Z]\.//g;
$name = lc $name;
@@
-480,7
+480,7
@@
sub do_faculty {
map { s/[\r\n]//g; $_} @$row;
$row->[0] = capitalize($row->[0]);
$row->[0] =~ s/([A-Z]r?)$/$1./;
map { s/[\r\n]//g; $_} @$row;
$row->[0] = capitalize($row->[0]);
$row->[0] =~ s/([A-Z]r?)$/$1./;
- print '"'.$row->[0].'",',$row->[
1].',', $row->[2
], "\n";
+ print '"'.$row->[0].'",',$row->[
2].',', $row->[1
], "\n";
}
}
}
}
}
}