[BACK]Return to essayresponse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/essayresponse.pm between versions 1.118.2.1 and 1.119

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);
Removed from v.1.118.2.1  
changed lines
  Added in v.1.119

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