loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

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>