version 1.7, 2007/05/29 21:02:21
|
version 1.8, 2007/05/29 21:09:47
|
Line 227 sub affiliations_check {
|
Line 227 sub affiliations_check {
|
my ($userhash,$insthashref) = @_; |
my ($userhash,$insthashref) = @_; |
my (@inststatuses,$insttypechg);; |
my (@inststatuses,$insttypechg);; |
if (ref($insthashref) eq 'HASH') { |
if (ref($insthashref) eq 'HASH') { |
if (ref($insthashref->{type}) eq 'ARRAY') { |
if (ref($insthashref->{'inststatus'}) eq 'ARRAY') { |
@inststatuses = @{$insthashref->{type}}; |
@inststatuses = @{$insthashref->{'inststatus'}}; |
} |
} |
} |
} |
my @currstatuses = &unescape(split(/:/,$userhash->{'inststatus'})); |
my @currstatuses = &unescape(split(/:/,$userhash->{'inststatus'})); |