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; |
|
|