--- loncom/interface/portfolio.pm 2004/08/24 21:30:00 1.31
+++ loncom/interface/portfolio.pm 2004/08/25 17:30:49 1.32
@@ -321,16 +321,24 @@ sub delete_dir {
sub delete_dir_confirmed {
my ($r)=@_;
my $directory_name = $ENV{'form.currentpath'};
- $r->print('
'.$directory_name.'
');
$directory_name =~ m/\/$/;
$directory_name = $`;
my $result=&Apache::lonnet::removeuserfile($ENV{'user.name'},
$ENV{'user.domain'},'portfolio'.
$directory_name);
+
if ($result ne 'ok') {
$r->print(' An error occured (dir) ('.$result.
-# ') while trying to delete '.&display_file().'
');
') while trying to delete '.$directory_name.'
');
+ } else {
+ my @dirs = split m!/!, $directory_name;
+
+# $directory_name =~ m/^(\/*\/)(\/*.)$/;
+ $directory_name='/';
+ for (my $i=1; $i < (@dirs - 1); $i ++){
+ $directory_name .= $dirs[$i].'/';
+ }
+ $ENV{'form.currentpath'} = $directory_name;
}
$r->print(&done());
}