version 1.64, 2005/08/11 18:19:41
|
version 1.67, 2006/02/05 19:46:31
|
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 198 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 262 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); |
} |
} |