loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.80, 2005/03/15 23:11:08	version 1.81, 2005/04/07 04:46:36
Line 283 sub delete_dir {	Line 283 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'};
$directory_name =~ m/\/$/;	$directory_name =~ s\|/$\|\|; # remove any trailing slash
$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);