[1980] in Moira Commits
/svn/moira r4119 - trunk/moira/gen
daemon@ATHENA.MIT.EDU (Garry Zacheiss)
Wed Jun 19 08:09:58 2013
Date: Wed, 19 Jun 2013 08:09:51 -0400
From: Garry Zacheiss <zacheiss@MIT.EDU>
Message-Id: <201306191209.r5JC9pQ0022464@drugstore.mit.edu>
To: moira-commits@MIT.EDU
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Author: zacheiss
Date: 2013-06-19 08:09:50 -0400 (Wed, 19 Jun 2013)
New Revision: 4119
Modified:
trunk/moira/gen/asa-db.gen
Log:
Add affiliation fields.
Modified: trunk/moira/gen/asa-db.gen
===================================================================
--- trunk/moira/gen/asa-db.gen 2013-06-18 16:40:03 UTC (rev 4118)
+++ trunk/moira/gen/asa-db.gen 2013-06-19 12:09:50 UTC (rev 4119)
@@ -16,13 +16,13 @@
$dbh = DBI->connect("dbi:Oracle:moira", "moira", "moira")
|| exit $MR_DBMS_ERR;
-$sth = $dbh->prepare("SELECT login, clearid, first, last, type FROM users WHERE status = 1 ORDER BY login")
+$sth = $dbh->prepare("SELECT login, clearid, first, last, type, affiliation_basic, affiliation_detailed FROM users WHERE status = 1 ORDER BY login")
|| exit $MR_DBMS_ERR;
$sth->execute || exit $MR_DBMS_ERR;
-while (($login, $clearid, $first, $last, $type) = $sth->fetchrow_array) {
- $row = "$login\t$clearid\t$first\t$last\t$type\n";
+while (($login, $clearid, $first, $last, $type, $aff_basic, $aff_detailed) = $sth->fetchrow_array) {
+ $row = "$login\t$clearid\t$first\t$last\t$type\t$aff_basic\t$aff_detailed\n";
$row =~ s/\0//g;
print OUT $row;
}
