version 1.114, 2002/09/30 18:47:43
|
version 1.115, 2002/10/01 07:09:05
|
Line 1650 sub parmval {
|
Line 1650 sub parmval {
|
my $courselevelr = $usercourseprefix.'.'.$symbparm; |
my $courselevelr = $usercourseprefix.'.'.$symbparm; |
my $courselevelm = $usercourseprefix.'.'.$mapparm; |
my $courselevelm = $usercourseprefix.'.'.$mapparm; |
# fourth, check user |
# fourth, check user |
if ($uname) { |
if (defined($uname)) { |
return $useropt{$courselevelr} if ($useropt{$courselevelr}); |
return $useropt{$courselevelr} if (defined($useropt{$courselevelr})); |
return $useropt{$courselevelm} if ($useropt{$courselevelm}); |
return $useropt{$courselevelm} if (defined($useropt{$courselevelm})); |
return $useropt{$courselevel} if ($useropt{$courselevel}); |
return $useropt{$courselevel} if (defined($useropt{$courselevel})); |
} |
} |
# third, check course |
# third, check course |
if ($csec) { |
if (defined($csec)) { |
return $courseopt{$seclevelr} if ($courseopt{$seclevelr}); |
return $courseopt{$seclevelr} if (defined($courseopt{$seclevelr})); |
return $courseopt{$seclevelm} if ($courseopt{$seclevelm}); |
return $courseopt{$seclevelm} if (defined($courseopt{$seclevelm})); |
return $courseopt{$seclevel} if ($courseopt{$seclevel}); |
return $courseopt{$seclevel} if (defined($courseopt{$seclevel})); |
} |
} |
# |
# |
return $courseopt{$courselevelr} if ($courseopt{$courselevelr}); |
return $courseopt{$courselevelr} if (defined($courseopt{$courselevelr})); |
return $courseopt{$courselevelm} if ($courseopt{$courselevelm}); |
return $courseopt{$courselevelm} if (defined($courseopt{$courselevelm})); |
return $courseopt{$courselevel} if ($courseopt{$courselevel}); |
return $courseopt{$courselevel} if (defined($courseopt{$courselevel})); |
# second, check map parms |
# second, check map parms |
my $thisparm = $parmhash{$symbparm}; |
my $thisparm = $parmhash{$symbparm}; |
return $thisparm if ($thisparm); |
return $thisparm if (defined($thisparm)); |
# first, check default |
# first, check default |
return &Apache::lonnet::metadata($fn,$rwhat.'.default'); |
return &Apache::lonnet::metadata($fn,$rwhat.'.default'); |
} |
} |