loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.31, 2004/08/24 21:30:00	version 1.32, 2004/08/25 17:30:49
Line 321 sub delete_dir {	Line 321 sub delete_dir {
sub delete_dir_confirmed {	sub delete_dir_confirmed {
my ($r)=@_;	my ($r)=@_;
my $directory_name = $ENV{'form.currentpath'};	my $directory_name = $ENV{'form.currentpath'};
$r->print('<br />'.$directory_name.'<br />');
$directory_name =~ m/\/$/;	$directory_name =~ m/\/$/;
$directory_name = $`;	$directory_name = $`;
my $result=&Apache::lonnet::removeuserfile($ENV{'user.name'},	my $result=&Apache::lonnet::removeuserfile($ENV{'user.name'},
$ENV{'user.domain'},'portfolio'.	$ENV{'user.domain'},'portfolio'.
$directory_name);	$directory_name);

if ($result ne 'ok') {	if ($result ne 'ok') {
$r->print('<font color="red"> An error occured (dir) ('.$result.	$r->print('<font color="red"> An error occured (dir) ('.$result.
# ') while trying to delete '.&display_file().'</font><br />');
') while trying to delete '.$directory_name.'</font><br />');	') while trying to delete '.$directory_name.'</font><br />');
	} 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());	$r->print(&done());
}	}