version 1.100, 2004/05/04 20:43:21
|
version 1.102, 2004/05/07 15:53:05
|
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 = 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 857 sub display_line {
|
Line 858 sub display_line {
|
$r->print("</td><td nowrap>"); |
$r->print("</td><td nowrap>"); |
} elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
} elsif ($ENV{'form.catalogmode'} eq 'groupimport') { |
$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"); |