version 1.18, 2012/04/19 02:13:00
|
version 1.19, 2012/11/27 11:33:17
|
Line 72 END
|
Line 72 END
|
} else { |
} else { |
my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'}; |
my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'}; |
my $lonuserroot = $Apache::lonnet::perlvar{'lonUsersDir'}; |
my $lonuserroot = $Apache::lonnet::perlvar{'lonUsersDir'}; |
if (($dir !~ /^\Qlondocroot\E/) && ($dir !~ /^\Q$lonuserroot\E/)) { |
if (($dir !~ /^\Q$londocroot\E/) && ($dir !~ /^\Q$lonuserroot\E/)) { |
print('<html><body><span class="LC_error">'.$lt{'extf'}.'<br />'."\n". |
print('<html><body><span class="LC_error">'.$lt{'extf'}.'<br />'."\n". |
&Apache::lonlocal::mt('The specified directory "[_1]" is invalid',$dir). |
&Apache::lonlocal::mt('The specified directory "[_1]" is invalid',$dir). |
'</span></body></html>'); |
'</span></body></html>'); |