From 2ca41bf02b172dbbed1d26f99efb461681f100c8 Mon Sep 17 00:00:00 2001 From: Tim Pope Date: Fri, 10 Sep 2004 22:39:50 +0000 Subject: [PATCH] Reversed school and email fields in faculty --- perl/sctweb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/sctweb b/perl/sctweb index d9f9eff..aa91c49 100755 --- a/perl/sctweb +++ b/perl/sctweb @@ -220,7 +220,7 @@ sub get_faculty_email { while($_ = ) { chomp; m/"([^"]*)",([^,]*),([^,]*)/; - ($name, $school, $email) = ($1, $2, $3); + ($name, $email, $school) = ($1, $2, $3); $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./; - print '"'.$row->[0].'",',$row->[1].',', $row->[2], "\n"; + print '"'.$row->[0].'",',$row->[2].',', $row->[1], "\n"; } } } -- 2.30.2