loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.43, 2004/09/10 20:14:45	version 1.44, 2004/09/10 20:31:35
Line 385 sub handler {	Line 385 sub handler {
if ($current_path eq '/'){	if ($current_path eq '/'){
&Apache::lonnet::mkdiruserfile($ENV{'user.name'},	&Apache::lonnet::mkdiruserfile($ENV{'user.name'},
$ENV{'user.domain'},'portfolio');	$ENV{'user.domain'},'portfolio');
}else{ # some directory that snuck in	} else { # some directory that snuck in
# get rid of the directory from the recent pulldown, just in case	# get rid of the directory from the recent pulldown, just in case
&Apache::lonhtmlcommon::remove_recent('portfolio',[$current_path]);	&Apache::lonhtmlcommon::remove_recent('portfolio',[$current_path]);
$current_path = '/'; # force it back to the root	$current_path = '/'; # force it back to the root
}	}
# now grab the directory list again, for the first time	# now grab the directory list again, for the first time
@dir_list=&Apache::lonnet::dirlist($current_path,	@dir_list=&Apache::lonnet::dirlist($current_path,
$ENV{'user.domain'},	$ENV{'user.domain'},
$ENV{'user.name'},$portfolio_root);	$ENV{'user.name'},$portfolio_root);

}	}
# need to know if directory is empty so it can be removed if desired	# need to know if directory is empty so it can be removed if desired
my $is_empty=(@dir_list == 2);	my $is_empty=(@dir_list == 2);
&display_directory($r,$current_path,$is_empty,\@dir_list);	&display_directory($r,$current_path,$is_empty,\@dir_list);
$r->print("</body>\n</html>\n");	$r->print("</body>\n</html>\n");
return OK;	return OK;
}	}
}	}
1;	1;