--- loncom/interface/portfolio.pm	2005/03/15 23:11:08	1.80
+++ loncom/interface/portfolio.pm	2005/04/07 04:46:36	1.81
@@ -283,8 +283,7 @@ sub delete_dir {
 sub delete_dir_confirmed {
     my ($r)=@_;
     my $directory_name = $ENV{'form.currentpath'};
-    $directory_name =~ m/\/$/;
-    $directory_name = $`;
+    $directory_name =~ s|/$||; # remove any trailing slash
     my $result=&Apache::lonnet::removeuserfile($ENV{'user.name'},
 					       $ENV{'user.domain'},'portfolio'.
 					       $directory_name);