version 1.11, 2000/12/11 15:33:58
|
version 1.12, 2000/12/11 16:51:12
|
Line 567 sub parmval {
|
Line 567 sub parmval {
|
|
|
my ($mapname,$id,$fn)=split(/\_\_\_/,$symb); |
my ($mapname,$id,$fn)=split(/\_\_\_/,$symb); |
# ----------------------------------------------------- Cascading lookup scheme |
# ----------------------------------------------------- Cascading lookup scheme |
|
my $rwhat=$what; |
|
$what=~s/^parameter\_//; |
|
$what=~s/\_/\./; |
|
|
my $symbparm=$symb.'.'.$what; |
my $symbparm=$symb.'.'.$what; |
my $mapparm=$mapname.'___(all).'.$what; |
my $mapparm=$mapname.'___(all).'.$what; |
Line 587 sub parmval {
|
Line 590 sub parmval {
|
$ENV{'request.course.id'}.'.'.$symbparm; |
$ENV{'request.course.id'}.'.'.$symbparm; |
my $courselevelm= |
my $courselevelm= |
$ENV{'request.course.id'}.'.'.$mapparm; |
$ENV{'request.course.id'}.'.'.$mapparm; |
|
|
# ---------------------------------------------------------- fourth, check user |
# ---------------------------------------------------------- fourth, check user |
|
|
if ($uname) { |
if ($uname) { |
Line 624 sub parmval {
|
Line 628 sub parmval {
|
|
|
# -------------------------------------------------------- first, check default |
# -------------------------------------------------------- first, check default |
|
|
return &Apache::lonnet::metadata($fn,$what.'.default'); |
return &Apache::lonnet::metadata($fn,$rwhat.'.default'); |
|
|
} |
} |
|
|
Line 829 sub selectbox {
|
Line 833 sub selectbox {
|
return $selout.'</select>'; |
return $selout.'</select>'; |
} |
} |
|
|
# ---------------------------------------------------------------- Main handler |
# ==================================== Sub handler to get export of assessments |
|
|
|
# ================================================================ Main handler |
|
|
sub handler { |
sub handler { |
my $r=shift; |
my $r=shift; |