loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.39, 2003/10/24 14:58:36	version 1.40, 2003/11/12 21:38:35
Line 55 sub dynamicmeta {	Line 55 sub dynamicmeta {
my %sum=();	my %sum=();
my %cnt=();	my %cnt=();
my %concat=();	my %concat=();
my %listitems=('count' => 'add',	my %listitems=(
'course' => 'add',	'course' => 'add',
'goto' => 'add',	'goto' => 'add',
'comefrom' => 'add',	'comefrom' => 'add',
Line 104 sub dynamicmeta {	Line 104 sub dynamicmeta {
$returnhash{$_.'_list'}=$concat{$_};	$returnhash{$_.'_list'}=$concat{$_};
### Apache->request->print("\n<hr />".$_.': '.$returnhash{$_}.'<br />'.$returnhash{$_.'_list'});	### Apache->request->print("\n<hr />".$_.': '.$returnhash{$_}.'<br />'.$returnhash{$_.'_list'});
}	}
	#
	# Deal with 'count' seperately
	$returnhash{'count'} = &access_count($url,$aauthor,$adomain);

return %returnhash;	return %returnhash;
}	}

	sub access_count {
	my ($src,$author,$adomain) = @_;
	my %countdata=&Apache::lonnet::dump('nohist_accesscount',$adomain,
	$author,$src);
	if (! exists($countdata{$src})) {
	return 'Not Available';
	} else {
	return $countdata{$src};
	}
	}

# ------------------------------------- Try to make an alt tag if there is none	# ------------------------------------- Try to make an alt tag if there is none

sub alttag {	sub alttag {