loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.39, 2003/08/21 01:48:22	version 1.40, 2003/09/26 00:23:09
Line 307 foreach my $user (@homeusers) {	Line 307 foreach my $user (@homeusers) {
foreach my $m (@metalist) {	foreach my $m (@metalist) {
print LOG "- ".$m."\n";	print LOG "- ".$m."\n";
my $ref=&metadata($m);	my $ref=&metadata($m);
	if ($ref->{'obsolete'}) { print LOG "obsolete\n"; next; }
	if ($ref->{'copyright'} eq 'private') { print LOG "private\n"; next; }
my $m2='/res/'.&declutter($m);	my $m2='/res/'.&declutter($m);
$m2=~s/\.meta$//;	$m2=~s/\.meta$//;
# &dynamicmeta($m2);	# &dynamicmeta($m2);