--- loncom/metadata_database/searchcat.pl 2006/01/27 15:25:05 1.65 +++ loncom/metadata_database/searchcat.pl 2006/02/05 19:46:31 1.67 @@ -2,7 +2,7 @@ # The LearningOnline Network # searchcat.pl "Search Catalog" batch script # -# $Id: searchcat.pl,v 1.65 2006/01/27 15:25:05 albertel Exp $ +# $Id: searchcat.pl,v 1.67 2006/02/05 19:46:31 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -200,6 +200,7 @@ foreach my $dom (@domains) { #wanted => \&print_filename, #wanted => \&log_metadata, wanted => \&process_meta_file, + no_chdir => 1, }, join('/',($Apache::lonnet::perlvar{'lonDocRoot'},'res',$dom,$user)) ); } } @@ -264,7 +265,7 @@ sub only_meta_files { foreach my $file (@PossibleFiles) { if ( ($file =~ /\.meta$/ && # Ends in meta $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 /.. push(@ChosenFiles,$file); }