--- 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.<br />");
         $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.<br />");
         $r->print(&done());
     } else {