loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

Diff for /loncom/homework/caparesponse/caparesponse.pm between versions 1.216 and 1.219

version 1.216, 2007/06/06 17:03:54	version 1.219, 2007/08/29 21:57:47
Line 431 sub check_submission {	Line 431 sub check_submission {

&add_in_tag_answer($parstack,$safeeval);	&add_in_tag_answer($parstack,$safeeval);

	if (!%answer) {
	&Apache::lonxml::error("No answers are defined");
	}

my (@final_awards,@final_msgs,@names);	my (@final_awards,@final_msgs,@names);
foreach my $name (keys(%answer)) {	foreach my $name (keys(%answer)) {
&Apache::lonxml::debug(" doing $name with ".join(':',@{ $answer{$name}{'answers'} }));	&Apache::lonxml::debug(" doing $name with ".join(':',@{ $answer{$name}{'answers'} }));
Line 605 sub end_numericalresponse {	Line 609 sub end_numericalresponse {
my $part_id="$partid.$id";	my $part_id="$partid.$id";
if ($target eq 'analyze') {	if ($target eq 'analyze') {
push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);	push (@{ $Apache::lonhomework::analyze{"parts"} },$part_id);
	push (@{ $Apache::lonhomework::analyze{"$part_id.bubble_lines"} }, 1);
$Apache::lonhomework::analyze{"$part_id.type"} = $tag;	$Apache::lonhomework::analyze{"$part_id.type"} = $tag;
my (@incorrect)=&Apache::lonxml::get_param_var('incorrect',$parstack,$safeeval);	my (@incorrect)=&Apache::lonxml::get_param_var('incorrect',$parstack,$safeeval);
if ($#incorrect eq 0) { @incorrect=(split(/,/,$incorrect[0])); }	if ($#incorrect eq 0) { @incorrect=(split(/,/,$incorrect[0])); }
Line 1005 sub get_sigrange {	Line 1010 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'};	my $courseid=$env{'request.course.id'};
if (lc($env{"course.$courseid.disablesigfigs"}) eq 'yes') {	if ($env{'request.state'} ne 'construct'
	&& lc($env{"course.$courseid.disablesigfigs"}) eq 'yes') {
return (15,0);	return (15,0);
}	}
my $sig_lbound;	my $sig_lbound;

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

Removed from v.1.216
changed lines
	Added in v.1.219