loncom/enrollment/Autoupdate.pl - diff

Return to Autoupdate.pl CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.11, 2007/11/15 21:24:56	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);
}	}
Line 205 sub affiliations_check {	Line 205 sub affiliations_check {
@inststatuses = @{$insthashref->{'inststatus'}};	@inststatuses = @{$insthashref->{'inststatus'}};
}	}
}	}
my @currstatuses = &unescape(split(/:/,$userhash->{'inststatus'}));	my @currstatuses = map { &unescape($_); } (split(/:/,$userhash->{'inststatus'}));
foreach my $status (@inststatuses) {	foreach my $status (@inststatuses) {
if (!grep/^\Q$status\E/,@currstatuses) {	if (!grep/^\Q$status\E/,@currstatuses) {
$insttypechg = 1;	$insttypechg = 1;