version 1.8, 2000/11/28 19:10:32
|
version 1.9, 2000/11/28 19:15:48
|
Line 77 sub start_responseparam {
|
Line 77 sub start_responseparam {
|
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } |
if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } |
my $default = &Apache::run::run("{$args;".'return $default}',$safeeval); |
my $default = &Apache::run::run("{$args;".'return $default}',$safeeval); |
my $name = &Apache::run::run("{$args;".'return $name}',$safeeval); |
my $name = &Apache::run::run("{$args;".'return $name}',$safeeval); |
&Apache::lonxml::debug("looking for resource.$Apache::inputtags::part['-1'].$name"); |
&Apache::lonxml::debug("looking for resource.$Apache::inputtags::part.$name"); |
my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part['-1'].$name"); |
my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.$name"); |
&Apache::lonxml::debug("$name has value :$value: and default :$default:"); |
&Apache::lonxml::debug("$name has value :$value: and default :$default:"); |
if (!$value) { |
if (!$value) { |
$Apache::inputtags::params{$name}=$default; |
$Apache::inputtags::params{$name}=$default; |
Line 88 sub start_responseparam {
|
Line 88 sub start_responseparam {
|
return ''; |
return ''; |
} else { |
} else { |
return &meta_parameter_write( |
return &meta_parameter_write( |
$Apache::inputtags::part['-1'], |
$Apache::inputtags::part, |
$token->[2]->{'name'}, |
$token->[2]->{'name'}, |
$token->[2]->{'type'}, |
$token->[2]->{'type'}, |
$token->[2]->{'default'}, |
$token->[2]->{'default'}, |