loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

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'},