loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.72, 2007/01/01 21:23:10	version 1.74, 2007/01/02 09:12:51
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} = &LONCAPA::lonmetadata::sqltime($end);	$acc_data->{end} = &LONCAPA::lonmetadata::sqltime($end);
Line 612 sub portfolio_metadata {	Line 613 sub portfolio_metadata {
$metacache{'owner'} = $uname.':'.$dom;	$metacache{'owner'} = $uname.':'.$dom;
$metacache{'domain'} = $dom;	$metacache{'domain'} = $dom;
$metacache{'mime'} = $mime;	$metacache{'mime'} = $mime;
if (defined($group)) {	if ($group ne '') {
$metacache{'keys'} .= ',courserestricted';	$metacache{'keys'} .= ',courserestricted';
$metacache{'courserestricted'} = 'course.'.$dom.'_'.$uname;	$metacache{'courserestricted'} = 'course.'.$dom.'_'.$uname;
}	}