loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.1, 2000/09/11 21:13:51	version 1.7, 2000/10/02 22:15:37
Line 3	Line 3

package Apache::caparesponse;	package Apache::caparesponse;
use strict;	use strict;
	use capa;

sub BEGIN {	sub BEGIN {
&Apache::lonxml::register('Apache::caparesponse',('caparesponse'));	&Apache::lonxml::register('Apache::caparesponse',('caparesponse'));
}	}

	$Apache::caparesponse::result='';
sub start_caparesponse {	sub start_caparesponse {
	my $envkey;

	foreach $envkey (sort keys %ENV) {
	Apache::lonxml::debug("$envkey ---- $ENV{$envkey}<br>");
	}

	Apache::lonxml::debug("\n<br>\nreal caparesponse<br>\n");
}	}

sub end_caparesponse {	sub end_caparesponse {
	my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
	if ( defined $ENV{'form.'.$ENV{'form.request.prefix'}.'submit'}) {
	$Apache::caparesponse::result='';
	$safeeval->share('&caparesponse_capa_check_answer');
	$safeeval->share('$Apache::caparesponse::result');
	my $response = $ENV{'form.'.$ENV{'form.request.prefix'}.'HWVAL'.$Apache::inputtags::curvalue};
	Apache::lonxml::debug("submitted a $response<br>\n");
	Apache::lonxml::debug($$parstack[$#$parstack] . "\n<br>");
	my $expression="caparesponse_check $response $$parstack[$#$parstack];";
	&Apache::run::run($expression,$safeeval);

	&Apache::lonxml::debug("\n<br>result:$Apache::caparesponse::result:<br>\n");
	}
	#Apache::lonxml::debug("\n<br>\nreal end caparesponse<br>\n");
}	}

1;	1;
__END__	__END__