loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.146, 2004/06/04 22:06:07	version 1.148, 2004/06/10 21:19:59
Line 115 sub start_numericalresponse {	Line 115 sub start_numericalresponse {
}	}
chop $answertxt;	chop $answertxt;
if ($target eq 'web') {	if ($target eq 'web') {
$answertxt.=" $unit.<br />";	$answertxt.=" $unit ";
}	}
$Apache::inputtags::answertxt{$id}=$answertxt;	$Apache::inputtags::answertxt{$id}=$answertxt;
}	}
Line 517 sub get_tolrange {	Line 517 sub get_tolrange {
sub get_sigrange {	sub get_sigrange {
my ($sig)=@_;	my ($sig)=@_;
&Apache::lonxml::debug("Got a sig of :$sig:");	&Apache::lonxml::debug("Got a sig of :$sig:");
	my $courseid=$ENV{'request.course.id'};
	if (lc($ENV{"course.$courseid.disablesigfigs"}) eq 'yes') {
	return (15,0);
	}
my $sig_lbound;	my $sig_lbound;
my $sig_ubound;	my $sig_ubound;
if ($sig eq '') {	if ($sig eq '') {