--- loncom/homework/response.pm 2000/11/28 20:11:25 1.10 +++ loncom/homework/response.pm 2000/12/04 21:16:29 1.12 @@ -73,7 +73,7 @@ sub start_caparesponse { sub start_responseparam { my ($target,$token,$parstack,$parser,$safeeval)=@_; - if ($target ne 'meta') { + if ($target eq 'grade') { my $args=''; if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } my $default = &Apache::run::run("{$args;".'return $default}',$safeeval); @@ -81,17 +81,21 @@ sub start_responseparam { &Apache::lonxml::debug("looking for resource.$Apache::inputtags::part.$name"); my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.$name"); &Apache::lonxml::debug("$name has value :$value: and default :$default:"); - if (!$value) { + if ($value eq '') { + &Apache::lonxml::debug("defaullting"); $Apache::inputtags::params{$name}=$default; } else { + &Apache::lonxml::debug("using value"); $Apache::inputtags::params{$name}=$value; } return ''; - } else { + } elsif ($target eq 'meta') { return &meta_parameter_write($token->[2]->{'name'}, $token->[2]->{'type'}, $token->[2]->{'default'}, $token->[2]->{'description'}); + } else { + return ''; } }