Return to testbankimport.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
version 1.18, 2008/09/24 19:48:29 | version 1.19, 2008/12/19 03:53:00 |
---|---|
Line 1817 sub handler { | Line 1817 sub handler { |
my ($fn,$filename); | my ($fn,$filename); |
if ($env{'form.filename'}) { | if ($env{'form.filename'}) { |
$fn=$env{'form.filename'}; | $fn=$env{'form.filename'}; |
$fn=~s/^http\:\/\/[^\/]+\///; | $fn=~s/^https?\:\/\/[^\/]+\///; |
$fn=~s/^\///; | $fn=~s/^\///; |
$fn=~s{(~|priv/)($LONCAPA::username_re)}{}; | $fn=~s{(~|priv/)($LONCAPA::username_re)}{}; |
$fn=~s/\/+/\//g; | $fn=~s/\/+/\//g; |