version 1.350, 2011/09/26 04:27:44
|
version 1.351, 2011/09/27 14:50:12
|
Line 1425 sub roles_selector {
|
Line 1425 sub roles_selector {
|
|
|
sub get_all_courseroles { |
sub get_all_courseroles { |
my ($cdom,$cnum,$courseroles,$seccount,$courseprivs) = @_; |
my ($cdom,$cnum,$courseroles,$seccount,$courseprivs) = @_; |
unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH') || |
unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH') && |
(ref($courseprivs) eq 'HASH')) { |
(ref($courseprivs) eq 'HASH')) { |
return; |
return; |
} |
} |