version 1.11, 2007/11/15 21:24:56
|
version 1.12, 2009/02/01 20:10:26
|
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; |