loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.16, 2001/01/08 21:46:56	version 1.18, 2001/01/10 21:49:43
Line 105 sub start_radiobuttonresponse {	Line 105 sub start_radiobuttonresponse {
require Apache::radiobuttonresponse;	require Apache::radiobuttonresponse;
import Apache::radiobuttonresponse;	import Apache::radiobuttonresponse;
my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
Apache::caparesponse::start_radiobuttonresponse($target,$token,$parstack,$parser,$safeeval,$style);;	Apache::radiobuttonresponse::start_radiobuttonresponse($target,$token,$parstack,$parser,$safeeval,$style);;
return "";	return "";
}	}

Line 119 sub start_responseparam {	Line 119 sub start_responseparam {
&Apache::lonxml::debug("looking for resource.$Apache::inputtags::part.$name");	&Apache::lonxml::debug("looking for resource.$Apache::inputtags::part.$name");
my $value = &Apache::lonnet::EXT("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:");	&Apache::lonxml::debug("$name has value :$value: and default :$default:");
if ($value eq '') {	if ($value eq '' \|\| $value eq 'con_lost') {
&Apache::lonxml::debug("defaullting");	&Apache::lonxml::debug("defaulting");
$Apache::inputtags::params{$name}=$default;	$Apache::inputtags::params{$name}=$default;
} else {	} else {
&Apache::lonxml::debug("using value");	&Apache::lonxml::debug("using value");