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; |