--- loncom/homework/essayresponse.pm 2005/09/19 20:41:01 1.68 +++ loncom/homework/essayresponse.pm 2005/11/15 22:19:57 1.69 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # essay (ungraded) style responses # -# $Id: essayresponse.pm,v 1.68 2005/09/19 20:41:01 albertel Exp $ +# $Id: essayresponse.pm,v 1.69 2005/11/15 22:19:57 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -42,7 +42,8 @@ sub start_essayresponse { my $id = &Apache::response::start_response($parstack,$safeeval); if ($target eq 'meta') { $result=&Apache::response::meta_package_write('essayresponse'); - } elsif ($target eq 'web') { + } elsif ($target eq 'web' && + $Apache::inputtags::status[-1] eq 'CAN_ANSWER') { my $part= $Apache::inputtags::part; my $ncol= &Apache::lonnet::EXT("resource.$part".'_'."$id.maxcollaborators"); my $coll= &HTML::Entities::encode($Apache::lonhomework::history{"resource.$part.$id.collaborators"},'<>&"');