--- loncom/homework/imageresponse.pm 2005/01/31 22:47:43 1.58.2.1 +++ loncom/homework/imageresponse.pm 2005/01/31 23:09:55 1.61 @@ -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.61 2005/01/31 23:09:55 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -272,7 +272,6 @@ sub gradefoils { } 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'; } @@ -345,7 +344,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)); }