loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.71, 2006/12/29 19:15:27	version 1.72, 2007/01/01 21:23:10
Line 241 foreach my $dom (@domains) {	Line 241 foreach my $dom (@domains) {
my ($group,$url,$fullpath);	my ($group,$url,$fullpath);
if ($is_course) {	if ($is_course) {
($group, my ($path)) = ($file =~ /^(\w+)(\/.+)$/);	($group, my ($path)) = ($file =~ /^(\w+)(\/.+)$/);
$fullpath = $pathstart.'/groups/'.$group.'/portfolio/'.$path;	$fullpath = $pathstart.'/groups/'.$group.'/portfolio'.$path;
$url = $urlstart.'/groups/'.$group.'/portfolio'.$path;	$url = $urlstart.'/groups/'.$group.'/portfolio'.$path;
} else {	} else {
$fullpath = $pathstart.'/portfolio'.$file;	$fullpath = $pathstart.'/portfolio'.$file;
$url .= $urlstart.'/portfolio'.$file;	$url = $urlstart.'/portfolio'.$file;
}	}
if (ref($access{$file}) eq 'HASH') {	if (ref($access{$file}) eq 'HASH') {
&process_portfolio_access_data($url,$access{$file});	&process_portfolio_access_data($url,$access{$file});