From: Tim Pope <code@tpope.net>
Date: Fri, 10 Sep 2004 22:39:50 +0000 (+0000)
Subject: Reversed school and email fields in faculty
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=2ca41bf02b172dbbed1d26f99efb461681f100c8

Reversed school and email fields in faculty
---

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($_ = <INS>) {
 	    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";
 	}
     }
 }