version 1.63, 2005/03/21 20:36:11
|
version 1.66, 2006/01/27 15:53:49
|
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 504 sub process_dynamic_metadata {
|
Line 507 sub process_dynamic_metadata {
|
%DynamicData = &LONCAPA::lonmetadata::process_reseval_data(\%evaldata); |
%DynamicData = &LONCAPA::lonmetadata::process_reseval_data(\%evaldata); |
untie(%evaldata); |
untie(%evaldata); |
$DynamicData{'domain'} = $dom; |
$DynamicData{'domain'} = $dom; |
print('user = '.$user.' domain = '.$dom.$/); |
#print('user = '.$user.' domain = '.$dom.$/); |
# |
# |
# Read in the access count data |
# Read in the access count data |
&log(7,'Reading access count data') if ($debug); |
&log(7,'Reading access count data') if ($debug); |