loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/imageresponse.pm between versions 1.93 and 1.94

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

version 1.93, 2008/03/12 02:46:53	version 1.94, 2008/08/08 16:37:13
Line 367 sub gradefoils {	Line 367 sub gradefoils {
} elsif ($1 eq 'polygon') {	} elsif ($1 eq 'polygon') {
$grade=&grade_polygon($area,$x,$y);	$grade=&grade_polygon($area,$x,$y);
} else {	} else {
&Apache::lonxml::error("Unknown area style $area");	&Apache::lonxml::error(&mt('Unknown area style [_1]',$area));
}	}
&Apache::lonxml::debug("Area said $grade");	&Apache::lonxml::debug("Area said $grade");
if ($grade eq 'APPROX_ANS') { last; }	if ($grade eq 'APPROX_ANS') { last; }
Line 494 sub start_foil {	Line 494 sub start_foil {
$target eq 'analyze' \|\| $target eq 'answer') {	$target eq 'analyze' \|\| $target eq 'answer') {
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
if ($name eq "") {	if ($name eq "") {
&Apache::lonxml::warning("Foils without names exist. This can cause problems to malfunction.");	&Apache::lonxml::warning(&mt('Foils without names exist. This can cause problems to malfunction.'));
$name=$Apache::lonxml::curdepth;	$name=$Apache::lonxml::curdepth;
}	}
if (defined($Apache::response::foilnames{$name})) {	if (defined($Apache::response::foilnames{$name})) {
&Apache::lonxml::error(&mt("Foil name <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name));	&Apache::lonxml::error(&mt("Foil name [_1] appears more than once. Foil names need to be unique."
	,'<b><tt>'.$name.'</tt></b>'));
}	}
$Apache::response::foilnames{$name}++;	$Apache::response::foilnames{$name}++;
if ( $Apache::imageresponse::conceptgroup	if ( $Apache::imageresponse::conceptgroup

Removed from v.1.93
changed lines
	Added in v.1.94