version 1.1, 2000/10/21 10:46:35
|
version 1.2, 2000/10/23 13:21:12
|
Line 6
|
Line 6
|
# |
# |
# 05/29/00,05/30,10/11 Gerd Kortemeyer) |
# 05/29/00,05/30,10/11 Gerd Kortemeyer) |
# |
# |
# 10/19,10/21 Gerd Kortemeyer |
# 10/19,10/21,10/23 Gerd Kortemeyer |
|
|
package Apache::lonmeta; |
package Apache::lonmeta; |
|
|
Line 60 sub handler {
|
Line 60 sub handler {
|
%content=&unpackagemeta(join("\n",@metacontents),1); |
%content=&unpackagemeta(join("\n",@metacontents),1); |
|
|
# --------------------------------------------------------------- Render Output |
# --------------------------------------------------------------- Render Output |
|
|
|
my $creationdate=localtime($content{'creationdate'}); |
|
my $lastrevisiondate=localtime($content{'lastrevisiondate'}); |
|
|
$r->print(<<ENDHEAD); |
$r->print(<<ENDHEAD); |
<html><head><title>Catalog Information</title></head> |
<html><head><title>Catalog Information</title></head> |
Line 75 sub handler {
|
Line 78 sub handler {
|
<hr> |
<hr> |
<b>MIME Type:</b> $content{'mime'}<br> |
<b>MIME Type:</b> $content{'mime'}<br> |
<b>Language:</b> $content{'language'}<br> |
<b>Language:</b> $content{'language'}<br> |
<b>Creation Date:</b> $content{'creationdate'}<br> |
<b>Creation Date:</b> $creationdate<br> |
<b>Last Revision Date:</b> $content{'lastrevisiondate'}<br> |
<b>Last Revision Date:</b> $lastrevisiondate<br> |
<b>Publisher/Owner:</b> $content{'owner'}<br> |
<b>Publisher/Owner:</b> $content{'owner'}<br> |
<b>Copyright/Distribution:</b> $content{'copyright'} |
<b>Copyright/Distribution:</b> $content{'copyright'} |
<hr> |
<hr> |