version 1.7, 2000/11/28 18:56:47
|
version 1.8, 2000/11/28 19:10:32
|
Line 30 sub meta_stores_write {
|
Line 30 sub meta_stores_write {
|
} |
} |
|
|
sub mandatory_part_meta { |
sub mandatory_part_meta { |
my $partid=shift; |
my $partid=shift; |
# |
# |
# Autogenerate metadata for mandatory |
# Autogenerate metadata for mandatory |
# input (from RAT or lonparmset) and |
# input (from RAT or lonparmset) and |
Line 72 sub start_caparesponse {
|
Line 72 sub start_caparesponse {
|
|
|
sub start_responseparam { |
sub start_responseparam { |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
if ($target ne 'meta') { |
if ($target ne 'meta') { |
my $args=''; |
my $args=''; |
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['-1'].$name"); |
my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part['-1'].$name"); |
my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part['-1'].$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; |
|
} else { |
|
$Apache::inputtags::params{$name}=$value; |
|
} |
|
return ''; |
} else { |
} else { |
$Apache::inputtags::params{$name}=$value; |
|
} |
|
return ''; |
|
} else { |
|
return &meta_parameter_write( |
return &meta_parameter_write( |
$Apache::inputtags::part['-1'], |
$Apache::inputtags::part['-1'], |
$token->[2]->{'name'}, |
$token->[2]->{'name'}, |
$token->[2]->{'type'}, |
$token->[2]->{'type'}, |
$token->[2]->{'default'}, |
$token->[2]->{'default'}, |
$token->[2]->{'description'}); |
$token->[2]->{'description'}); |
} |
} |
} |
} |
|
|
sub end_responseparam { |
sub end_responseparam { |