version 1.53, 2006/05/01 06:17:16
|
version 1.54, 2006/05/01 17:30:20
|
Line 343 sub parmval {
|
Line 343 sub parmval {
|
return $useropt{$ucourselevel} if (defined($useropt{$ucourselevel})); |
return $useropt{$ucourselevel} if (defined($useropt{$ucourselevel})); |
} |
} |
# check groups |
# check groups |
if (defined($groups) && ref($groups eq 'ARRAY')) { |
if (defined($groups) && ref($groups) eq 'ARRAY') { |
foreach my $group (@{$groups}) { |
foreach my $group (@{$groups}) { |
foreach my $level ($symbparm,$mapparm,$what) { |
foreach my $level ($symbparm,$mapparm,$what) { |
my $item = $courseprefix.'.['.$group.'].'.$level; |
my $item = $courseprefix.'.['.$group.'].'.$level; |