loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.159, 2006/06/23 00:28:43	version 1.160, 2006/07/19 15:31:05
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 $result = &Apache::portfolio::make_anchor($port_path,$start,'/');
undef,undef,undef,$group);

my $fullpath = '/';	my $fullpath = '/';
my (undef,@tree) = split('/',$path);	my (undef,@tree) = split('/',$path);
Line 296 sub portfolio_linked_path {	Line 295 sub portfolio_linked_path {
foreach my $dir (@tree) {	foreach my $dir (@tree) {
$fullpath .= $dir.'/';	$fullpath .= $dir.'/';
$result .= '/';	$result .= '/';
$result .= &Apache::portfolio::make_anchor($port_path,$dir,$fullpath,	$result .= &Apache::portfolio::make_anchor($port_path,$dir,$fullpath);
undef,undef,undef,$group);
}	}
$result .= "/$filename";	$result .= "/$filename";
return $result;	return $result;
Line 316 sub get_port_path_and_group {	Line 314 sub get_port_path_and_group {
} else {	} else {
$port_path = '/adm/portfolio';	$port_path = '/adm/portfolio';
}	}
	if ($env{'form.group'} ne $group) {
	$env{'form.group'} = $group) {
	}
return ($port_path,$group);	return ($port_path,$group);
}	}