version 1.31, 2003/04/21 20:59:02
|
version 1.32, 2003/04/29 20:32:21
|
Line 130 sub end_essayresponse {
|
Line 130 sub end_essayresponse {
|
$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$award; |
$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$award; |
my %previous=&Apache::response::check_for_previous($response,$part,$id); |
my %previous=&Apache::response::check_for_previous($response,$part,$id); |
unless ($uploadedflag) { &Apache::response::handle_previous(\%previous,$award); } |
unless ($uploadedflag) { &Apache::response::handle_previous(\%previous,$award); } |
|
# |
|
# Store with resource author for similarity testing |
|
# |
|
if ($award eq 'SUBMITTED') { |
|
my ($symb,$crsid,$domain,$name)= |
|
&Apache::lonxml::whichuser(); |
|
if ($crsid) { |
|
my $akey=$name.'.'.$domain.'.'.$crsid; |
|
my $essayurl= |
|
&Apache::lonnet::declutter($ENV{'REQUEST_URI'}); |
|
my ($adom,$aname,$apath)= |
|
($essayurl=~/^(\w+)\/(\w+)\/(.*)$/); |
|
$apath=&Apache::lonnet::escape($apath); |
|
$apath=~s/\W/\_/gs; |
|
&Apache::lonnet::put('nohist_essay_'.$apath, |
|
{ $akey => $response },$adom,$aname); |
|
} |
|
} |
} |
} |
} |
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |