--- loncom/enrollment/Autoupdate.pl	2009/02/01 20:10:26	1.12
+++ loncom/enrollment/Autoupdate.pl	2009/03/09 05:25:49	1.13
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 # Automated Userinfo update script
-# $Id: Autoupdate.pl,v 1.12 2009/02/01 20:10:26 raeburn Exp $
+# $Id: Autoupdate.pl,v 1.13 2009/03/09 05:25:49 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -82,7 +82,7 @@
                     (my $insttypechg,@inststatuses) = 
                        &affiliations_check(\%userhash,$instusers{$uname});
                     if ($insttypechg) {
-                        my $inststatusstr = join(':',&escape(@inststatuses));
+                        my $inststatusstr = join(':',map { &escape($_) } (@inststatuses));
                         my %statushash = ( inststatus => $inststatusstr );
                         my $statusres = &Apache::lonnet::put('environment',\%statushash,$dom,$uname);
                     }