|
version 1.47, 2015/06/09 21:22:51
|
version 1.48, 2017/11/05 20:04:30
|
|
Line 38 use HTML::Entities();
|
Line 38 use HTML::Entities();
|
| use Apache::lonlocal; |
use Apache::lonlocal; |
| use Apache::lonupload; |
use Apache::lonupload; |
| use File::Basename(); |
use File::Basename(); |
| |
use File::Path(); |
| use LONCAPA; |
use LONCAPA; |
| |
|
| # ---------------------------------------------------------------- Jscript One |
# ---------------------------------------------------------------- Jscript One |
|
Line 640 sub display_three {
|
Line 641 sub display_three {
|
| ); |
); |
| my $londocroot = $r->dir_config('lonDocRoot'); |
my $londocroot = $r->dir_config('lonDocRoot'); |
| if ($destdir =~ m{^\Q$londocroot/priv/$udom/$uname/$dirpath\E}) { |
if ($destdir =~ m{^\Q$londocroot/priv/$udom/$uname/$dirpath\E}) { |
| system (" rm -r -f $destdir/temp"); |
&File::Path::remove_tree("$destdir/temp",{ safe => 1 }); |
| } |
} |
| } elsif ($manifest_result eq 'nomanifest') { |
} elsif ($manifest_result eq 'nomanifest') { |
| $r->print( |
$r->print( |
![[BACK]](/icons/back.gif){kind=icon}
Return to imsimport.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / imspackages