[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'}));