loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmeta.pm between versions 1.20 and 1.21

version 1.20, 2002/09/16 21:01:41	version 1.21, 2002/10/07 13:50:36
Line 179 sub handler {	Line 179 sub handler {
}	}

# --------------------------------------------------------------- Render Output	# --------------------------------------------------------------- Render Output
	my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta/);
my $creationdate=localtime($content{'creationdate'});	my $creationdate=localtime($content{'creationdate'});
my $lastrevisiondate=localtime($content{'lastrevisiondate'});	my $lastrevisiondate=localtime($content{'lastrevisiondate'});
my $language=&Apache::loncommon::languagedescription($content{'language'});	my $language=&Apache::loncommon::languagedescription($content{'language'});
my $mime=&Apache::loncommon::filedescription($content{'mime'});	my $mime=&Apache::loncommon::filedescription($content{'mime'});
my $disuri=&Apache::lonnet::declutter($uri);	my $disuri=&Apache::lonnet::declutter($uri);
$disuri=~s/\.meta$//;	$disuri=~s/\.meta$//;
	my $currentversion=&Apache::lonnet::getversion($disuri);
	my $versiondisplay='';
	if ($thisversion) {
	$versiondisplay='Version: '.$thisversion.
	' (most recent version: '.$currentversion.')';
	} else {
	$versiondisplay='Version: '.$currentversion;
	}
my $bodytag=&Apache::loncommon::bodytag	my $bodytag=&Apache::loncommon::bodytag
('Catalog Information','','','',$resdomain);	('Catalog Information','','','',$resdomain);
$r->print(<<ENDHEAD);	$r->print(<<ENDHEAD);
Line 193 my $bodytag=&Apache::loncommon::bodytag	Line 201 my $bodytag=&Apache::loncommon::bodytag
$bodytag	$bodytag
<h2>$content{'title'}</h2>	<h2>$content{'title'}</h2>
<h3><tt>$disuri</tt></h3>	<h3><tt>$disuri</tt></h3>
	$versiondisplay<br />
<table cellspacing=2 border=0>	<table cellspacing=2 border=0>
<tr><td bgcolor='#AAAAAA'>Author(s)</td>	<tr><td bgcolor='#AAAAAA'>Author(s)</td>
<td bgcolor="#CCCCCC">$content{'author'} </td></tr>	<td bgcolor="#CCCCCC">$content{'author'} </td></tr>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.20
changed lines
	Added in v.1.21