loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.101, 2004/05/07 15:43:45	version 1.103, 2004/05/10 08:34:50
Line 842 sub display_line {	Line 842 sub display_line {
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 = grep /^\Q$filecom[0]\E\.meta\&/, @list;
	# my $metafile=1;
my $title;	my $title;
if ($ENV{'form.catalogmode'} eq 'interactive') {	if ($ENV{'form.catalogmode'} eq 'interactive') {
$title=$listname;	$title=$listname;
Line 859 sub display_line {	Line 860 sub display_line {
$title=$listname;	$title=$listname;
$title = &Apache::lonnet::metadata($filelink,'title')	$title = &Apache::lonnet::metadata($filelink,'title')
if ($metafile == 1);	if ($metafile == 1);
$title=$listname unless $title;	$title=$listname unless $title;
my $titleesc=&HTML::Entities::encode($title,'<>&"');	my $titleesc=&HTML::Entities::encode($title,'<>&"');
$r->print("<form name='form$fnum'>\n");	$r->print("<form name='form$fnum'>\n");
$r->print("<input type='checkbox' name='filelink"."' ".	$r->print("<input type='checkbox' name='filelink"."' ".