--- loncom/interface/lonmeta.pm 2003/10/24 14:58:36 1.39 +++ loncom/interface/lonmeta.pm 2003/12/22 21:44:17 1.41 @@ -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.41 2003/12/22 21:44:17 www 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 { @@ -475,7 +490,8 @@ ENDEDIT } if (m/copyright/) { $r->print(&Apache::lonpublisher::selectbox($_,'new_'.$_, - $Apache::lonpublisher::metadatafields{$_}, + ($Apache::lonpublisher::metadatafields{$_}? + $Apache::lonpublisher::metadatafields{$_}:'default'), \&Apache::loncommon::copyrightdescription, (&Apache::loncommon::copyrightids))); } elsif (m/language/) {