loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14, 2002/02/11 04:19:40	version 1.16, 2002/08/09 19:49:30
Line 47 sub dynamicmeta {	Line 47 sub dynamicmeta {
my $regexp=&Apache::lonnet::escape($url);	my $regexp=&Apache::lonnet::escape($url);
$regexp=~s/(\W)/\\$1/g;	$regexp=~s/(\W)/\\$1/g;
$regexp='___'.$regexp.'___';	$regexp='___'.$regexp.'___';
my %evaldata=&Apache::lonnet::dump	my %evaldata=&Apache::lonnet::dump('nohist_resevaldata',$adomain,
('resevaldata',$adomain,$aauthor,$regexp);	$aauthor,$regexp);
my %sum;	my %sum;
my %cnt;	my %cnt;
my %listitems=('count' => 'add',	my %listitems=('count' => 'add',
Line 219 ENDHEAD	Line 219 ENDHEAD
delete($content{'copyright'});	delete($content{'copyright'});
if ($ENV{'user.adv'}) {	if ($ENV{'user.adv'}) {
# ------------------------------------------------------------ Dynamic Metadata	# ------------------------------------------------------------ Dynamic Metadata
$r->print('<h3>Dynamic Metadata (updated periodically)</h3>');	$r->print(
	'<h3>Dynamic Metadata (updated periodically)</h3>Processing ...<br>');
	$r->rflush();
my %items=(	my %items=(
'count' => 'Network-wide number of accesses (hits)',	'count' => 'Network-wide number of accesses (hits)',
'course' => 'Network-wide number of courses using resource',	'course' => 'Network-wide number of courses using resource',