loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.44, 2004/09/10 20:31:35	version 1.45, 2004/09/10 20:48:33
Line 74 sub display_directory {	Line 74 sub display_directory {
&Apache::lonhtmlcommon::select_recent('portfolio','currentpath',	&Apache::lonhtmlcommon::select_recent('portfolio','currentpath',
'this.form.submit();'));	'this.form.submit();'));
$r->print("</form>");	$r->print("</form>");
if ($is_empty) {	if ($is_empty && ($current_path ne '/')) {
$displayOut = '<form method="post" action="/adm/portfolio">'.	$displayOut = '<form method="post" action="/adm/portfolio">'.
'<input type="hidden" name="action" value="deletedir" />'.	'<input type="hidden" name="action" value="deletedir" />'.
'<input type="submit" name="deletedir" value="'.&mt("Delete Directory").'" />'.	'<input type="submit" name="deletedir" value="'.&mt("Delete Directory").'" />'.
Line 379 sub handler {	Line 379 sub handler {
my @dir_list=&Apache::lonnet::dirlist($current_path,	my @dir_list=&Apache::lonnet::dirlist($current_path,
$ENV{'user.domain'},	$ENV{'user.domain'},
$ENV{'user.name'},$portfolio_root);	$ENV{'user.name'},$portfolio_root);
if (@dir_list[0] eq 'no_such_dir'){	if ($dir_list[0] eq 'no_such_dir'){
# two main reasons for this: 1) never been here, so directory structure not created	# two main reasons for this: 1) never been here, so directory structure not created
# 2) back-button navigation after deleting a directory	# 2) back-button navigation after deleting a directory
if ($current_path eq '/'){	if ($current_path eq '/'){