loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.3, 2000/11/21 18:40:13	version 1.4, 2000/11/22 00:02:31
Line 22 sub start_responseparam {	Line 22 sub start_responseparam {
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 $type = &Apache::run::run("{$args;".'return $type}',$safeeval);	my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);
my $value = &Apache::lonnet::EXT("resource.param.$type");	&Apache::lonxml::debug("looking for resource.$Apache::inputtags::part['-1'].$name");
&Apache::lonxml::debug("$type has value :$value: and default :$default:");	my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part['-1'].$name");
	&Apache::lonxml::debug("$name has value :$value: and default :$default:");
if (!$value) {	if (!$value) {
$Apache::inputtags::params{$type}=$default;	$Apache::inputtags::params{$name}=$default;
} else {	} else {
$Apache::inputtags::params{$type}=$value;	$Apache::inputtags::params{$name}=$value;
}	}
return '';	return '';
}	}