loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.70, 2006/12/11 00:32:24	version 1.70.2.2, 2007/01/03 03:59:48
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});
Line 330 sub process_portfolio_access_data {	Line 330 sub process_portfolio_access_data {
$acc_data->{keynum} = $key;	$acc_data->{keynum} = $key;
my ($num,$scope,$end,$start) =	my ($num,$scope,$end,$start) =
($key =~ /^([^:]+):([a-z]+)_(\d)_?(\d)$/);	($key =~ /^([^:]+):([a-z]+)_(\d)_?(\d)$/);
	next if (($scope ne 'public') && ($scope ne 'guest'));
$acc_data->{scope} = $scope;	$acc_data->{scope} = $scope;
if ($end != 0) {	if ($end != 0) {
$acc_data->{end} = &sqltime($end);	$acc_data->{end} = &sqltime($end);