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); |
} |
} |