version 1.13, 2001/12/25 21:02:35
|
version 1.14, 2002/02/11 04:19:40
|
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 278 $dynmeta{$_}." </td></tr>\n");
|
Line 278 $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.')'); |