[LON-CAPA-cvs] cvs: loncom /enrollment Autoupdate.pl
raeburn
lon-capa-cvs-allow@mail.lon-capa.org
Tue, 29 May 2007 21:09:48 -0000
raeburn Tue May 29 17:09:48 2007 EDT
Modified files:
/loncom/enrollment Autoupdate.pl
Log:
Institutional status is stored as an array under the hash key of inststatus, instead of type -- see localenroll::query_user_tables() documentation.
Index: loncom/enrollment/Autoupdate.pl
diff -u loncom/enrollment/Autoupdate.pl:1.7 loncom/enrollment/Autoupdate.pl:1.8
--- loncom/enrollment/Autoupdate.pl:1.7 Tue May 29 17:02:21 2007
+++ loncom/enrollment/Autoupdate.pl Tue May 29 17:09:47 2007
@@ -1,7 +1,7 @@
#!/usr/bin/perl
#
# Automated Userinfo update script
-# $Id: Autoupdate.pl,v 1.7 2007/05/29 21:02:21 albertel Exp $
+# $Id: Autoupdate.pl,v 1.8 2007/05/29 21:09:47 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -227,8 +227,8 @@
my ($userhash,$insthashref) = @_;
my (@inststatuses,$insttypechg);;
if (ref($insthashref) eq 'HASH') {
- if (ref($insthashref->{type}) eq 'ARRAY') {
- @inststatuses = @{$insthashref->{type}};
+ if (ref($insthashref->{'inststatus'}) eq 'ARRAY') {
+ @inststatuses = @{$insthashref->{'inststatus'}};
}
}
my @currstatuses = &unescape(split(/:/,$userhash->{'inststatus'}));