version 1.115, 2004/06/18 01:09:24
|
version 1.116, 2004/06/18 01:27:04
|
Line 880 sub display_line {
|
Line 880 sub display_line {
|
my $iconname = &Apache::loncommon::icon($listname); |
my $iconname = &Apache::loncommon::icon($listname); |
$r->print("<tr valign='$valign' bgcolor=$fileclr><td nowrap='1' align='top'>"); |
$r->print("<tr valign='$valign' bgcolor=$fileclr><td nowrap='1' align='top'>"); |
|
|
my $metafile = $Apache::lonnet::perlvar{'lonDocRoot'}.$pathprefix. |
|
$filecom[0].'.meta'; |
|
if (-e $metafile) { |
|
$metafile=1; |
|
} else { |
|
$metafile=0; |
|
} |
|
if ($ENV{'form.catalogmode'} eq 'interactive') { |
if ($ENV{'form.catalogmode'} eq 'interactive') { |
$r->print("<a href=\"javascript:select_data(\'", |
$r->print("<a href=\"javascript:select_data(\'", |
$filelink,"')\">"); |
$filelink,"')\">"); |