version 1.118.2.1, 2019/02/19 14:24:38
|
version 1.119, 2014/12/04 15:41:30
|
Line 210 sub end_essayresponse {
|
Line 210 sub end_essayresponse {
|
&escape($crsid)); |
&escape($crsid)); |
my $essayurl= |
my $essayurl= |
&Apache::lonnet::declutter($ENV{'REQUEST_URI'}); |
&Apache::lonnet::declutter($ENV{'REQUEST_URI'}); |
if ($essayurl eq 'lib/templates/simpleproblem.problem') { |
my ($adom,$aname,$apath)= |
my %crsinfo = &Apache::lonnet::coursedescription($crsid); |
($essayurl=~/^($LONCAPA::domain_re)\/($LONCAPA::username_re)\/(.*)$/); |
my $cdom = $crsinfo{'domain'}; |
$apath=&escape($apath); |
my $cnum = $crsinfo{'num'}; |
$apath=~s/\W/\_/gs; |
my ($map,$id,$res) = &Apache::lonnet::decode_symb($symb); |
&Apache::lonnet::put('nohist_essay_'.$apath, |
if ($map =~ m{^\Quploaded/$cdom/$cnum/\E(default(?:|_\d+)\.(?:sequence|page))$}) { |
{ $akey => $response },$adom,$aname); |
my $apath = $1.'_'.$id; |
} |
$apath=~s/\W/\_/gs; |
|
my $akey = join('.',&escape($name),&escape($domain)); |
|
&Apache::lonnet::put('nohist_essay_'.$apath, |
|
{ $akey => $response },$cdom,$cnum); |
|
} |
|
} else { |
|
my ($adom,$aname,$apath)= |
|
($essayurl=~/^($LONCAPA::domain_re)\/($LONCAPA::username_re)\/(.*)$/); |
|
$apath=&escape($apath); |
|
$apath=~s/\W/\_/gs; |
|
&Apache::lonnet::put('nohist_essay_'.$apath, |
|
{ $akey => $response },$adom,$aname); |
|
} |
|
} |
|
} |
} |
} |
} |
} |
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result.=&Apache::edit::end_table(); |
$result.=&Apache::edit::end_table(); |
|
|
Line 300 sub format_prior_response {
|
Line 286 sub format_prior_response {
|
} |
} |
|
|
sub file_submission { |
sub file_submission { |
my ($part,$id,$award,$uploadedflag,$totalsize,$deletions)=@_; |
my ($part,$id,$award,$uploadedflag,$totalsize,$deletions,$context,$info)=@_; |
my $files; |
my $files; |
my $jspart=$part; |
my $jspart=$part; |
$jspart=~s/\./_/g; |
$jspart=~s/\./_/g; |
Line 527 sub file_submission {
|
Line 513 sub file_submission {
|
$$uploadedflag=1; |
$$uploadedflag=1; |
} |
} |
} |
} |
|
if ($context eq 'externalresponse') { |
|
my @todelete = keys(%port_delete); |
|
if (@tolock || @todelete) { |
|
if (ref($info) eq 'HASH') { |
|
if ($info->{'ip'}) { |
|
&Apache::lonnet::automated_portfile_access('ip',\@tolock,\@todelete,$info); |
|
} |
|
} |
|
} |
|
} |
&Apache::lonnet::unmark_as_readonly($udom,$uname,[$symb,$crsid]); |
&Apache::lonnet::unmark_as_readonly($udom,$uname,[$symb,$crsid]); |
&Apache::lonnet::mark_as_readonly($udom,$uname,[@tolock],[$symb,$crsid]); |
&Apache::lonnet::mark_as_readonly($udom,$uname,[@tolock],[$symb,$crsid]); |
&Apache::lonnet::clear_selected_files($uname); |
&Apache::lonnet::clear_selected_files($uname); |