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.68, 2006/04/08 07:07:15
Line 65 and correct user experience.	Line 65 and correct user experience.
=cut	=cut

use strict;	use strict;
BEGIN {
eval "use Apache2::compat();";
};
use DBI;	use DBI;
use lib '/home/httpd/lib/perl/';	use lib '/home/httpd/lib/perl/';
use LONCAPA::lonmetadata;	use LONCAPA::lonmetadata;
Line 265 sub only_meta_files {	Line 262 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);
}	}