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.28 and 1.29

version 1.28, 2003/03/14 19:29:36	version 1.29, 2003/04/12 15:57:30
Line 55 sub dynamicmeta {	Line 55 sub dynamicmeta {
my %cnt;	my %cnt;
my %listitems=('count' => 'add',	my %listitems=('count' => 'add',
'course' => 'add',	'course' => 'add',
	'goto' => 'add',
	'comefrom' => 'add',
'avetries' => 'avg',	'avetries' => 'avg',
'stdno' => 'add',	'stdno' => 'add',
'difficulty' => 'avg',	'difficulty' => 'avg',
Line 115 sub alttag {	Line 117 sub alttag {
{ return 'No information available'; }	{ return 'No information available'; }
}	}

	# -------------------------------------------------------------- Author display

	sub authordisplay {
	my ($aname,$adom)=@_;
	return &Apache::loncommon::aboutmewrapper(
	&Apache::loncommon::plainname($aname,$adom),
	$aname,$adom).' <tt>['.$aname.'@'.$adom.']</tt>';
	}

# -------------------------------------------------------------- Pretty display	# -------------------------------------------------------------- Pretty display

sub evalgraph {	sub evalgraph {
Line 210 my $mime=&Apache::loncommon::filedescrip	Line 221 my $mime=&Apache::loncommon::filedescrip
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 $currentversion=&Apache::lonnet::getversion($disuri);
	my $author=$content{'author'};
	$author=~s/(\w+)(\:\|\@)(\w+)/&authordisplay($1,$3)/gse;
	my $owner=$content{'owner'};
	$owner=~s/(\w+)(\:\|\@)(\w+)/&authordisplay($1,$3)/gse;
my $versiondisplay='';	my $versiondisplay='';
if ($thisversion) {	if ($thisversion) {
$versiondisplay='Version: '.$thisversion.	$versiondisplay='Version: '.$thisversion.
Line 217 if ($thisversion) {	Line 232 if ($thisversion) {
} else {	} else {
$versiondisplay='Version: '.$currentversion;	$versiondisplay='Version: '.$currentversion;
}	}
	my $customdistributionfile='';
	if ($content{'customdistributionfile'}) {
	$customdistributionfile='<a href="'.$content{'customdistributionfile'}.
	'"><tt>'.$content{'customdistributionfile'}.'</tt></a>';
	}
my $bodytag=&Apache::loncommon::bodytag	my $bodytag=&Apache::loncommon::bodytag
('Catalog Information','','','',$resdomain);	('Catalog Information','','','',$resdomain);
$r->print(<<ENDHEAD);	$r->print(<<ENDHEAD);
Line 227 $bodytag	Line 247 $bodytag
$versiondisplay<br />	$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">$author </td></tr>
<tr><td bgcolor='#AAAAAA'>Subject</td>	<tr><td bgcolor='#AAAAAA'>Subject</td>
<td bgcolor="#CCCCCC">$content{'subject'} </td></tr>	<td bgcolor="#CCCCCC">$content{'subject'} </td></tr>
<tr><td bgcolor='#AAAAAA'>Keyword(s)</td>	<tr><td bgcolor='#AAAAAA'>Keyword(s)</td>
Line 245 $versiondisplay<br />	Line 265 $versiondisplay<br />
<tr><td bgcolor='#AAAAAA'>	<tr><td bgcolor='#AAAAAA'>
Last Revision Date</td><td bgcolor="#CCCCCC">$lastrevisiondate </td></tr>	Last Revision Date</td><td bgcolor="#CCCCCC">$lastrevisiondate </td></tr>
<tr><td bgcolor='#AAAAAA'>Publisher/Owner</td>	<tr><td bgcolor='#AAAAAA'>Publisher/Owner</td>
<td bgcolor="#CCCCCC">$content{'owner'} </td></tr>	<td bgcolor="#CCCCCC">$owner </td></tr>
<tr><td bgcolor='#AAAAAA'>Copyright/Distribution</td>	<tr><td bgcolor='#AAAAAA'>Copyright/Distribution</td>
<td bgcolor="#CCCCCC">$content{'copyright'}	<td bgcolor="#CCCCCC">$content{'copyright'} </td></tr>
	<tr><td bgcolor='#AAAAAA'>Custom Distribution File</td>
	<td bgcolor="#CCCCCC">$customdistributionfile </td></tr>
</table>	</table>
ENDHEAD	ENDHEAD
delete($content{'title'});	delete($content{'title'});

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

Removed from v.1.28
changed lines
	Added in v.1.29