version 1.12, 2009/02/01 20:10:26
|
version 1.13, 2009/03/09 05:25:49
|
Line 82
|
Line 82
|
(my $insttypechg,@inststatuses) = |
(my $insttypechg,@inststatuses) = |
&affiliations_check(\%userhash,$instusers{$uname}); |
&affiliations_check(\%userhash,$instusers{$uname}); |
if ($insttypechg) { |
if ($insttypechg) { |
my $inststatusstr = join(':',&escape(@inststatuses)); |
my $inststatusstr = join(':',map { &escape($_) } (@inststatuses)); |
my %statushash = ( inststatus => $inststatusstr ); |
my %statushash = ( inststatus => $inststatusstr ); |
my $statusres = &Apache::lonnet::put('environment',\%statushash,$dom,$uname); |
my $statusres = &Apache::lonnet::put('environment',\%statushash,$dom,$uname); |
} |
} |