--- 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/) {