loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.122, 2003/11/20 22:06:39	version 1.123, 2003/11/21 19:15:12
Line 128 sub end_numericalresponse {	Line 128 sub end_numericalresponse {
my $expression="&caparesponse_check_list('".$response."','".	my $expression="&caparesponse_check_list('".$response."','".
$$parstack[-1];	$$parstack[-1];
my $hideunit=&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoffunit');	my $hideunit=&Apache::lonnet::EXT('resource.'.$partid.'_'.$id.'.turnoffunit');

	foreach my $key (keys(%Apache::inputtags::params)) {
	$expression.= ';my $'. #'
	$key.'="'.$Apache::inputtags::params{$key}.'"';
	}

#no way to enter units, with radio buttons	#no way to enter units, with radio buttons
if ($Apache::lonhomework::type eq 'exam' \|\|	if ($Apache::lonhomework::type eq 'exam' \|\|
lc($hideunit) eq "yes") {	lc($hideunit) eq "yes") {
$expression.=';my $unit=undef;';	$expression.=';my $unit=undef;';
}	}
foreach my $key (keys(%Apache::inputtags::params)) {	#sig fig don't make much sense either
$expression.= ';my $'. #'	if (($Apache::lonhomework::type eq 'exam' \|\|
$key.'="'.$Apache::inputtags::params{$key}.'"';	$ENV{'form.submitted'} eq 'scantron') &&
	$$tagstack[-1] eq 'numericalresponse') {
	$expression.=';my $sig=undef;';
}	}

if ($$tagstack[-1] eq 'formularesponse') {	if ($$tagstack[-1] eq 'formularesponse') {
$expression.=';my $type="fml";';	$expression.=';my $type="fml";';
} elsif ($$tagstack[-1] eq 'numericalresponse') {	} elsif ($$tagstack[-1] eq 'numericalresponse') {