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