version 1.180, 2007/06/11 17:13:30
|
version 1.181, 2007/06/11 20:56:38
|
Line 1818 sub upload {
|
Line 1818 sub upload {
|
$port_path.$env{'form.currentpath'}, |
$port_path.$env{'form.currentpath'}, |
$mode,\%allfiles,\%codebase); |
$mode,\%allfiles,\%codebase); |
if ($result !~ m|^/uploaded/|) { |
if ($result !~ m|^/uploaded/|) { |
$r->print('<span class="LC_error">'.'An errror occured ('.$result. |
$r->print('<span class="LC_error">'.'An error occured ('.$result. |
') while trying to upload '.&display_file().'</span><br />'); |
') while trying to upload '.&display_file().'</span><br />'); |
$r->print(&done('Back',$url)); |
$r->print(&done('Back',$url)); |
} else { |
} else { |
Line 1870 sub upload_embedded {
|
Line 1870 sub upload_embedded {
|
&Apache::lonnet::userfileupload('embedded_item_'.$i,'', |
&Apache::lonnet::userfileupload('embedded_item_'.$i,'', |
$port_path.$path); |
$port_path.$path); |
if ($result !~ m|^/uploaded/|) { |
if ($result !~ m|^/uploaded/|) { |
$r->print('<span class="LC_error">'.'An errror occured ('.$result. |
$r->print('<span class="LC_error">'.'An error occured ('.$result. |
') while trying to upload '.&display_file($path,$fname).'</span><br />'); |
') while trying to upload '.&display_file($path,$fname).'</span><br />'); |
next; |
next; |
} else { |
} else { |
Line 1953 sub createdir {
|
Line 1953 sub createdir {
|
my $result=&Apache::lonnet::mkdiruserfile($uname,$udom, |
my $result=&Apache::lonnet::mkdiruserfile($uname,$udom, |
$port_path.$env{'form.currentpath'}.$newdir); |
$port_path.$env{'form.currentpath'}.$newdir); |
if ($result ne 'ok') { |
if ($result ne 'ok') { |
$r->print('<span class="LC_error">'.'An errror occured ('.$result. |
$r->print('<span class="LC_error">'.'An error occured ('.$result. |
') while trying to create a new directory '.&display_file().'</span><br />'); |
') while trying to create a new directory '.&display_file().'</span><br />'); |
} |
} |
} |
} |