--- loncom/homework/caparesponse/caparesponse.pm 2005/02/21 20:29:00 1.163 +++ loncom/homework/caparesponse/caparesponse.pm 2005/02/21 20:39:46 1.164 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # caparesponse definition # -# $Id: caparesponse.pm,v 1.163 2005/02/21 20:29:00 albertel Exp $ +# $Id: caparesponse.pm,v 1.164 2005/02/21 20:39:46 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -613,16 +613,6 @@ sub end_stringresponse { if ($Apache::lonhomework::type eq 'exam' || &Apache::response::submitted('scantron')) { $increment=&Apache::response::scored_response($part,$id); - } elsif (0 && $Apache::lonhomework::type eq 'survey') { - my $response = &Apache::response::getresponse(); - if ( $response =~ /[^\s]/) { - my %previous=&Apache::response::check_for_previous($response, - $part,$id); - $Apache::lonhomework::results{"resource.$part.$id.submission"}= - $response; - my $ad=$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}='SUBMITTED'; - &Apache::response::handle_previous(\%previous,$ad); - } } else { my $response = &Apache::response::getresponse(); if ( $response =~ /[^\s]/) {