Diff for /loncom/homework/daxesave.pm between versions 1.4 and 1.5

version 1.4, 2016/03/18 18:21:01 version 1.5, 2016/12/13 21:37:35
Line 82  sub handler { Line 82  sub handler {
   
     my $contents = $env{'form.file'};      my $contents = $env{'form.file'};
           
     try {      my $mode;
         $contents = &Apache::xml_to_loncapa::convert_file($contents);      if ($path =~ /\.(task|problem|exam|quiz|assess|survey|library|xml|html|htm|xhtml|xhtm)$/) {
     } catch {          try {
         $request->print("error\nconvert failed for $path: $_");              $contents = &Apache::xml_to_loncapa::convert_file($contents);
         return OK;          } catch {
     };              $request->print("error\nconvert failed for $path: $_");
               return OK;
           };
           $mode = '>:encoding(UTF-8)';
       } else {
           $mode = '>';
       }
           
     my $filebak = $newpath.".bak";      my $filebak = $newpath.".bak";
     if (-e $newpath) {      if (-e $newpath) {
         copy($newpath, $filebak); # errors ignored          copy($newpath, $filebak); # errors ignored
     }      }
     open my $out, '>:encoding(UTF-8)', $newpath;      open my $out, $mode, $newpath;
     print $out $contents;      print $out $contents;
     close $out;      close $out;
           

Removed from v.1.4  
changed lines
  Added in v.1.5


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