loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.164, 2006/08/04 22:16:38	version 1.165, 2006/08/08 19:35:53
Line 287 sub portfolio_linked_path {	Line 287 sub portfolio_linked_path {
if ($group) {	if ($group) {
$start = "groups/$group/".$start;	$start = "groups/$group/".$start;
}	}
my $result = &Apache::portfolio::make_anchor($port_path,$start,'/');	my %anchor_fields;
	%anchor_fields = (
	'selectfile' => $start,
	'currentpath' => '/'
	);
	my $result = &Apache::portfolio::make_anchor($port_path,\%anchor_fields,$start);
my $fullpath = '/';	my $fullpath = '/';
my (undef,@tree) = split('/',$path);	my (undef,@tree) = split('/',$path);
my $filename = pop(@tree);	my $filename = pop(@tree);
foreach my $dir (@tree) {	foreach my $dir (@tree) {
$fullpath .= $dir.'/';	$fullpath .= $dir.'/';
$result .= '/';	$result .= '/';
$result .= &Apache::portfolio::make_anchor($port_path,$dir,$fullpath);	my %anchor_fields = ();
	%anchor_fields = (
	'selectfile' => $dir,
	'currentpath' => $fullpath
	);
	$result .= &Apache::portfolio::make_anchor($port_path,\%anchor_fields,$dir);
}	}
$result .= "/$filename";	$result .= "/$filename";
return $result;	return $result;