loncom/metadata_database/LONCAPA/lonmetadata.pm - diff

Return to lonmetadata.pm CVS log

Up to [LON-CAPA] / loncom / metadata_database / LONCAPA

version 1.18, 2007/01/19 06:09:08	version 1.19, 2007/01/19 14:23:46
Line 184 $Portfolio_metadata_table_description =	Line 184 $Portfolio_metadata_table_description =
{ name => 'domain', type=>'TEXT'},	{ name => 'domain', type=>'TEXT'},
{ name => 'groupname', type=>'TEXT'},	{ name => 'groupname', type=>'TEXT'},
{ name => 'courserestricted', type=>'TEXT'},	{ name => 'courserestricted', type=>'TEXT'},
{ name => 'addedfieldnames', type=>'TEXT'},
{ name => 'addedfieldvalues', type=>'TEXT'},
#--------------------------------------------------	#--------------------------------------------------
{ name => 'dependencies', type=>'TEXT'},	{ name => 'dependencies', type=>'TEXT'},
{ name => 'modifyinguser', type=>'TEXT'},	{ name => 'modifyinguser', type=>'TEXT'},
Line 994 sub portfolio_metadata {	Line 992 sub portfolio_metadata {
}	}
} # End of ($token->[0] eq 'S')	} # End of ($token->[0] eq 'S')
}	}
if (keys(%addedfields) > 0) {
foreach my $key (sort keys(%addedfields)) {
$metacache{'addedfieldnames'} .= $key.',';
$metacache{'addedfieldvalues'} .= $addedfields{$key}.'&&&';
}
$metacache{'addedfieldnames'} =~ s/,$//;
$metacache{'addedfieldvalues'} =~ s/\&\&\&$//;
if ($metacache{'keys'}) {
$metacache{'keys'}.=',addedfieldnames';
} else {
$metacache{'keys'}='addedfieldnames';
}
$metacache{'keys'}.=',addedfieldvalues';
}
return (\%metacache,$metacache{'courserestricted'},\%addedfields);	return (\%metacache,$metacache{'courserestricted'},\%addedfields);
}	}