version 1.118, 2014/01/21 14:38:55
|
version 1.118.2.1, 2019/02/19 14:24:38
|
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'}); |
my ($adom,$aname,$apath)= |
if ($essayurl eq 'lib/templates/simpleproblem.problem') { |
($essayurl=~/^($LONCAPA::domain_re)\/($LONCAPA::username_re)\/(.*)$/); |
my %crsinfo = &Apache::lonnet::coursedescription($crsid); |
$apath=&escape($apath); |
my $cdom = $crsinfo{'domain'}; |
$apath=~s/\W/\_/gs; |
my $cnum = $crsinfo{'num'}; |
&Apache::lonnet::put('nohist_essay_'.$apath, |
my ($map,$id,$res) = &Apache::lonnet::decode_symb($symb); |
{ $akey => $response },$adom,$aname); |
if ($map =~ m{^\Quploaded/$cdom/$cnum/\E(default(?:|_\d+)\.(?:sequence|page))$}) { |
} |
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(); |
|
|