--- loncom/homework/imageresponse.pm 2005/01/31 22:47:43 1.58.2.1 +++ loncom/homework/imageresponse.pm 2005/01/10 19:21:57 1.59 @@ -2,7 +2,7 @@ # The LearningOnline Network with CAPA # image click response style # -# $Id: imageresponse.pm,v 1.58.2.1 2005/01/31 22:47:43 albertel Exp $ +# $Id: imageresponse.pm,v 1.59 2005/01/10 19:21:57 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -270,15 +270,10 @@ sub gradefoils { $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 && $Apache::lonhomework::type eq 'survey') { $result='SUBMITTED'; } - &Apache::response::handle_previous(\%previous,$result); - $Apache::lonhomework::results{"resource.$part.$id.submission"}=$responsestr; - $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$result; + $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}="$x:$y"; + $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}=$result; return ''; } @@ -345,7 +340,10 @@ sub start_foil { if ($target eq 'web' || $target eq 'grade' || $target eq 'tex' || $target eq 'analyze') { 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})) { &Apache::lonxml::error(&mt("Foil name [_1] appears more than once. Foil names need to be unique.",$name)); }