loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/response.pm between versions 1.16 and 1.19

version 1.16, 2001/01/08 21:46:56	version 1.19, 2001/01/19 21:44:51
Line 7 package Apache::response;	Line 7 package Apache::response;
use strict;	use strict;

sub BEGIN {	sub BEGIN {
&Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','radiobuttonresponse'));	&Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','radiobuttonresponse','optionresponse'));
}	}

sub start_response {	sub start_response {
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 "";
	}

	sub start_optionresponse {
	require Apache::optionresponse;
	import Apache::optionresponse;
	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
	Apache::optionresponse::start_optionresponse($target,$token,$parstack,$parser,$safeeval,$style);;
return "";	return "";
}	}

Line 119 sub start_responseparam {	Line 127 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");

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.16
changed lines
	Added in v.1.19