loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.40, 2004/09/09 17:53:59	version 1.41, 2004/09/10 17:59:13
Line 211 sub delete_dir_confirmed {	Line 211 sub delete_dir_confirmed {
$r->print('<font color="red"> An error occured (dir) ('.$result.	$r->print('<font color="red"> An error occured (dir) ('.$result.
') while trying to delete '.$directory_name.'</font><br />');	') while trying to delete '.$directory_name.'</font><br />');
} else {	} else {
	# now remove from recent
	# $r->print('<br /> removing '.$directory_name.'<br /');
	my @rem_dirs = ($directory_name.'/');
	&Apache::lonhtmlcommon::remove_recent('portfolio',\@rem_dirs);
my @dirs = split m!/!, $directory_name;	my @dirs = split m!/!, $directory_name;

# $directory_name =~ m/^(\/\/)(\/.)$/;	# $directory_name =~ m/^(\/\/)(\/.)$/;