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