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.58 and 1.60

version 1.58, 2004/12/08 01:00:41	version 1.60, 2005/01/31 22:46:22
Line 270 sub gradefoils {	Line 270 sub gradefoils {
$temp++;	$temp++;
}	}
}	}
	my $responsestr="$x:$y";
	my $part=$Apache::inputtags::part;
	my $id = $Apache::inputtags::response['-1'];
	my %previous=&Apache::response::check_for_previous($responsestr,$part,$id);
if ($result	if ($result
&& $Apache::lonhomework::type eq 'survey') { $result='SUBMITTED'; }	&& $Apache::lonhomework::type eq 'survey') { $result='SUBMITTED'; }
$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}="$x:$y";	&Apache::response::handle_previous(\%previous,$result);
$Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}=$result;	$Apache::lonhomework::results{"resource.$part.$id.submission"}=$responsestr;
	$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$result;
return '';	return '';
}	}

Line 340 sub start_foil {	Line 345 sub start_foil {
if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'tex' \|\|	if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'tex' \|\|
$target eq 'analyze') {	$target eq 'analyze') {
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
if ($name eq '') { $name=$Apache::lonxml::curdepth; }	if (!$name) {
	&Apache::lonxml::error("Foils without names exist. This can cause problems to malfunction.");
	$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 <b><tt>[_1]</tt></b> appears more than once. Foil names need to be unique.",$name));
}	}

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

Removed from v.1.58
changed lines
	Added in v.1.60