Diff for /loncom/homework/essayresponse.pm between versions 1.6 and 1.7

version 1.6, 2002/01/17 12:23:31 version 1.7, 2002/01/18 17:45:30
Line 50  sub end_essayresponse { Line 50  sub end_essayresponse {
       my $id = $Apache::inputtags::response['-1'];        my $id = $Apache::inputtags::response['-1'];
       my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};        my $response = $ENV{'form.HWVAL'.$Apache::inputtags::response['-1']};
       if ( $response =~ /[^\s]/) {        if ( $response =~ /[^\s]/) {
  $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.submission"}=$response;   my $part=$Apache::inputtags::part;
  $Apache::lonhomework::results{"resource.$Apache::inputtags::part.$id.awarddetail"}="SUBMITTED";   $Apache::lonhomework::results{"resource.$part.$id.submission"}=$response;
    $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}="SUBMITTED";
    my %previous=&Apache::response::check_for_previous($response,$part,$id);
    &Apache::response::handle_previous(\%previous,'SUBMITTED');
       }        }
     }      }
   }    }

Removed from v.1.6  
changed lines
  Added in v.1.7


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