version 1.55, 2004/11/09 21:51:14
|
version 1.56, 2004/11/10 05:57:53
|
Line 251 sub delete {
|
Line 251 sub delete {
|
my ($r)=@_; |
my ($r)=@_; |
my @check; |
my @check; |
my $file_name = $ENV{'form.currentpath'}.$ENV{'form.selectfile'}; |
my $file_name = $ENV{'form.currentpath'}.$ENV{'form.selectfile'}; |
push @check, $file_name; |
if (&Apache::lonnet::is_locked($file_name,$ENV{'user.domain'},$ENV{'user.name'} ) eq 'true') { |
my %locked = &Apache::lonnet::get('file_permissions',\@check, |
|
$ENV{'user.domain'},$ENV{'user.name'}); |
|
if (ref($locked{$file_name}) eq 'ARRAY') { |
|
$r->print ("The file is locked and cannot be deleted.<br />"); |
$r->print ("The file is locked and cannot be deleted.<br />"); |
$r->print(&done()); |
$r->print(&done()); |
} else { |
} else { |
Line 314 sub delete_dir_confirmed {
|
Line 311 sub delete_dir_confirmed {
|
|
|
sub rename { |
sub rename { |
my ($r)=@_; |
my ($r)=@_; |
my @check; |
|
my $file_name = $ENV{'form.currentpath'}.$ENV{'form.selectfile'}; |
my $file_name = $ENV{'form.currentpath'}.$ENV{'form.selectfile'}; |
push @check, $file_name; |
if (&Apache::lonnet::is_locked($file_name,$ENV{'user.domain'},$ENV{'user.name'}) eq 'true') { |
my %locked = &Apache::lonnet::get('file_permissions',\@check, |
|
$ENV{'user.domain'},$ENV{'user.name'}); |
|
if (ref($locked{$file_name}) eq 'ARRAY') { |
|
$r->print ("The file is locked and cannot be renamed.<br />"); |
$r->print ("The file is locked and cannot be renamed.<br />"); |
$r->print(&done()); |
$r->print(&done()); |
} else { |
} else { |