--- loncom/interface/lonmeta.pm 2003/10/24 14:58:36 1.39 +++ loncom/interface/lonmeta.pm 2003/11/12 21:38:35 1.40 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.39 2003/10/24 14:58:36 albertel Exp $ +# $Id: lonmeta.pm,v 1.40 2003/11/12 21:38:35 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -55,7 +55,7 @@ sub dynamicmeta { my %sum=(); my %cnt=(); my %concat=(); - my %listitems=('count' => 'add', + my %listitems=( 'course' => 'add', 'goto' => 'add', 'comefrom' => 'add', @@ -104,9 +104,24 @@ sub dynamicmeta { $returnhash{$_.'_list'}=$concat{$_}; ### Apache->request->print("\n
".$_.': '.$returnhash{$_}.'
'.$returnhash{$_.'_list'}); } + # + # Deal with 'count' seperately + $returnhash{'count'} = &access_count($url,$aauthor,$adomain); + 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 sub alttag {