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.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 200 foreach my $dom (@domains) {	Line 197 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 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);
}	}