loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonindexer.pm between versions 1.101 and 1.104

version 1.101, 2004/05/07 15:43:45	version 1.104, 2004/05/11 05:19:30
Line 841 sub display_line {	Line 841 sub display_line {
# Set the icon for the file	# Set the icon for the file
my $iconname = &Apache::loncommon::icon($listname);	my $iconname = &Apache::loncommon::icon($listname);
$r->print("<tr valign='$valign' bgcolor=$fileclr><td nowrap>");	$r->print("<tr valign='$valign' bgcolor=$fileclr><td nowrap>");
my $metafile = grep /^\Q$filecom[0]\E\.meta\&/, @list;
	my $metafile = $Apache::lonnet::perlvar{'lonDocRoot'}.$pathprefix.
	$filecom[0].'.meta';
	if (-e $metafile) {
	$metafile=1;
	} else {
	$metafile=0;
	}
my $title;	my $title;
if ($ENV{'form.catalogmode'} eq 'interactive') {	if ($ENV{'form.catalogmode'} eq 'interactive') {
$title=$listname;	$title=$listname;
Line 924 sub display_line {	Line 931 sub display_line {

$r->print (" (<a href=\"javascript:openWindow('".$filelink.	$r->print (" (<a href=\"javascript:openWindow('".$filelink.
".meta', 'metadatafile', '500', '550', 'no', 'yes','no')\"; ".	".meta', 'metadatafile', '500', '550', 'no', 'yes','no')\"; ".
"TARGET=_self>metadata</a>) ") if ($metafile == 1);	"TARGET=_self>metadata</a>) ");

$r->print("</td>\n");	$r->print("</td>\n");
if ($hash{'display_attrs_0'} == 1) {	if ($hash{'display_attrs_0'} == 1) {
my $title = &Apache::lonnet::gettitle($filelink,'title')	my $title = &Apache::lonnet::gettitle($filelink,'title');
if ($metafile == 1);
$r->print('<td> '.($title eq '' ? ' ' : $title).	$r->print('<td> '.($title eq '' ? ' ' : $title).
' </td>'."\n");	' </td>'."\n");
}	}
Line 944 sub display_line {	Line 949 sub display_line {
if $hash{'display_attrs_3'} == 1;	if $hash{'display_attrs_3'} == 1;

if ($hash{'display_attrs_4'} == 1) {	if ($hash{'display_attrs_4'} == 1) {
my $author = &Apache::lonnet::metadata($filelink,'author')	my $author = &Apache::lonnet::metadata($filelink,'author');
if ($metafile == 1);
$r->print('<td> '.($author eq '' ? ' ' : $author).	$r->print('<td> '.($author eq '' ? ' ' : $author).
" </td>\n");	" </td>\n");
}	}
if ($hash{'display_attrs_5'} == 1) {	if ($hash{'display_attrs_5'} == 1) {
my $keywords = &Apache::lonnet::metadata($filelink,'keywords')	my $keywords = &Apache::lonnet::metadata($filelink,'keywords');
if ($metafile == 1);
# $keywords = ' ' if (!$keywords);	# $keywords = ' ' if (!$keywords);
$r->print('<td> '.($keywords eq '' ? ' ' : $keywords).	$r->print('<td> '.($keywords eq '' ? ' ' : $keywords).
" </td>\n");	" </td>\n");
}	}
if ($hash{'display_attrs_6'} == 1) {	if ($hash{'display_attrs_6'} == 1) {
my $lang = &Apache::lonnet::metadata($filelink,'language')	my $lang = &Apache::lonnet::metadata($filelink,'language');
if ($metafile == 1);
$lang = &Apache::loncommon::languagedescription($lang);	$lang = &Apache::loncommon::languagedescription($lang);
$r->print('<td> '.($lang eq '' ? ' ' : $lang).	$r->print('<td> '.($lang eq '' ? ' ' : $lang).
" </td>\n");	" </td>\n");
Line 992 sub display_line {	Line 994 sub display_line {
" </td>\n");	" </td>\n");
}	}
if ($hash{'display_attrs_8'} == 1) {	if ($hash{'display_attrs_8'} == 1) {
my (%stat) = &Apache::lonmeta::dynamicmeta($filelink) if ($metafile == 1);	my (%stat) = &Apache::lonmeta::dynamicmeta($filelink);
my $stat = (exists($stat{'course'}) ? $stat{'course'} : '').	my $stat = (exists($stat{'course'}) ? $stat{'course'} : '').
((exists($stat{'course'}) \|\| exists($stat{'count'})) ? '/' : '').	((exists($stat{'course'}) \|\| exists($stat{'count'})) ? '/' : '').
(exists($stat{'count'}) ? $stat{'count'} : '');	(exists($stat{'count'}) ? $stat{'count'} : '');

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

Removed from v.1.101
changed lines
	Added in v.1.104