--- loncom/enrollment/Autoupdate.pl	2007/05/29 21:02:21	1.7
+++ loncom/enrollment/Autoupdate.pl	2007/05/29 21:09:47	1.8
@@ -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 @@ sub affiliations_check {
     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'}));