loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.65, 2006/01/27 15:25:05	version 1.67, 2006/02/05 19:46:31
Line 200 foreach my $dom (@domains) {	Line 200 foreach my $dom (@domains) {
#wanted => \&print_filename,	#wanted => \&print_filename,
#wanted => \&log_metadata,	#wanted => \&log_metadata,
wanted => \&process_meta_file,	wanted => \&process_meta_file,
	no_chdir => 1,
}, join('/',($Apache::lonnet::perlvar{'lonDocRoot'},'res',$dom,$user)) );	}, join('/',($Apache::lonnet::perlvar{'lonDocRoot'},'res',$dom,$user)) );
}	}
}	}
Line 264 sub only_meta_files {	Line 265 sub only_meta_files {
foreach my $file (@PossibleFiles) {	foreach my $file (@PossibleFiles) {
if ( ($file =~ /\.meta$/ && # Ends in meta	if ( ($file =~ /\.meta$/ && # Ends in meta
$file !~ /\.\d+\.[^\.]+\.meta$/ # is not for a prior version	$file !~ /\.\d+\.[^\.]+\.meta$/ # is not for a prior version
) \|\| (-d $file )) { # directories are okay	) \|\| (-d $File::Find::dir."/".$file )) { # directories are okay
# but we do not want /. or /..	# but we do not want /. or /..
push(@ChosenFiles,$file);	push(@ChosenFiles,$file);
}	}