version 1.13, 2001/12/25 21:02:35
|
version 1.15, 2002/03/29 18:44:41
|
Line 154 sub handler {
|
Line 154 sub handler {
|
# ------------------------------------------------------------------- Read file |
# ------------------------------------------------------------------- Read file |
|
|
my $uri=$r->uri; |
my $uri=$r->uri; |
map { |
foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { |
$content{$_}=&Apache::lonnet::metadata($uri,$_); |
$content{$_}=&Apache::lonnet::metadata($uri,$_); |
} split(/\,/,&Apache::lonnet::metadata($uri,'keys')); |
} |
|
|
# ------------------------------------------------------------------ Hide stuff |
# ------------------------------------------------------------------ Hide stuff |
|
|
unless ($ENV{'user.adv'}) { |
unless ($ENV{'user.adv'}) { |
map { |
foreach ('keywords','notes','abstract','subject') { |
$content{$_}='<i>- not displayed -</i>'; |
$content{$_}='<i>- not displayed -</i>'; |
} ('keywords','notes','abstract','subject'); |
} |
} |
} |
|
|
# --------------------------------------------------------------- Render Output |
# --------------------------------------------------------------- Render Output |
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', |
Line 278 $dynmeta{$_}." </td></tr>\n");
|
Line 280 $dynmeta{$_}." </td></tr>\n");
|
my $display=&Apache::lonnet::metadata($uri,$name.'.display'); |
my $display=&Apache::lonnet::metadata($uri,$name.'.display'); |
unless ($display) { $display=$name; }; |
unless ($display) { $display=$name; }; |
my $otherinfo=''; |
my $otherinfo=''; |
map { |
foreach ('name','part','type','default') { |
if (defined(&Apache::lonnet::metadata($uri,$name.'.'.$_))) { |
if (defined(&Apache::lonnet::metadata($uri,$name.'.'.$_))) { |
$otherinfo.=' '.$_.'='. |
$otherinfo.=' '.$_.'='. |
&Apache::lonnet::metadata($uri,$name.'.'.$_).'; '; |
&Apache::lonnet::metadata($uri,$name.'.'.$_).'; '; |
} |
} |
} ('name','part','type','default'); |
} |
$r->print('<b>'.$display.':</b> '.$content{$name}); |
$r->print('<b>'.$display.':</b> '.$content{$name}); |
if ($otherinfo) { |
if ($otherinfo) { |
$r->print(' ('.$otherinfo.')'); |
$r->print(' ('.$otherinfo.')'); |