version 1.165, 2007/06/28 22:28:22
|
version 1.167, 2007/06/29 22:42:17
|
Line 918 sub display_line {
|
Line 918 sub display_line {
|
|
|
# display file |
# display file |
if (($fnptr == 0 and $filecom[3] ne '') or $absolute) { |
if (($fnptr == 0 and $filecom[3] ne '') or $absolute) { |
|
my $title; |
my $filelink = $pathprefix.$filecom[0]; |
my $filelink = $pathprefix.$filecom[0]; |
|
if ($hash{'display_attrs_0'} == 1) { |
|
$title = &Apache::lonnet::gettitle($filelink,'title'); |
|
} |
my @file_ext = split (/\./,$listname); |
my @file_ext = split (/\./,$listname); |
my $curfext = $file_ext[-1]; |
my $curfext = $file_ext[-1]; |
if (@Omit) { |
if (@Omit) { |
Line 951 sub display_line {
|
Line 955 sub display_line {
|
$r->print(" />\n"); |
$r->print(" />\n"); |
$r->print("</form></td><td nowrap='nowrap' valign='top'>"); |
$r->print("</form></td><td nowrap='nowrap' valign='top'>"); |
$hash{"pre_${fnum}_link"}=$filelink; |
$hash{"pre_${fnum}_link"}=$filelink; |
$hash{"pre_${fnum}_title"}=&Apache::lonnet::gettitle($filelink,'title'); |
$hash{"pre_${fnum}_title"}=$title; |
if (!$hash{"pre_${fnum}_title"}) { |
if (!$hash{"pre_${fnum}_title"}) { |
$hash{"pre_${fnum}_title"} = 'Untitled'; |
$hash{"pre_${fnum}_title"} = 'Not_retrieved'; |
} |
} |
$fnum++; |
$fnum++; |
} |
} |
Line 1008 sub display_line {
|
Line 1012 sub display_line {
|
} |
} |
$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'); |
|
$r->print('<td> '.($title eq '' ? ' ' : $title). |
$r->print('<td> '.($title eq '' ? ' ' : $title). |
' </td>'."\n"); |
' </td>'."\n"); |
} |
} |