loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.66, 2006/01/27 15:53:49	version 1.67, 2006/02/05 19:46:31
Line 265 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);
}	}