version 1.158, 2007/03/08 01:58:45
|
version 1.159, 2007/06/20 18:38:44
|
Line 812 sub display_line {
|
Line 812 sub display_line {
|
$updir='/'.(split(/\.(page|sequence)\/\//,$startdir))[-1]; |
$updir='/'.(split(/\.(page|sequence)\/\//,$startdir))[-1]; |
$updir=~s/\/+/\//g; |
$updir=~s/\/+/\//g; |
|
|
$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield"); |
$r->print("<tr valign='$valign' bgcolor=\"$fileclr\">$extrafield"); |
$r->print("<td>\n"); |
$r->print("<td>\n"); |
$r->print ('<form method="post" name="dirpathUP" action="'.$updir. |
$r->print ('<form method="post" name="dirpathUP" action="'.$updir. |
'/" '. |
'/" '. |
Line 840 sub display_line {
|
Line 840 sub display_line {
|
if ($filecom[1] eq 'domain') { |
if ($filecom[1] eq 'domain') { |
$r->print ('<input type="hidden" name="dirPointer" value="on" />'."\n") |
$r->print ('<input type="hidden" name="dirPointer" value="on" />'."\n") |
if ($env{'form.dirPointer'} eq "on"); |
if ($env{'form.dirPointer'} eq "on"); |
$r->print("<tr valign='$valign' bgcolor=$fileclr>$extrafield"); |
$r->print("<tr valign='$valign' bgcolor=\"$fileclr\">$extrafield"); |
$r->print("<td>"); |
$r->print("<td>"); |
&begin_form ($r,$filecom[0]); |
&begin_form ($r,$filecom[0]); |
my $anchor = $filecom[0]; |
my $anchor = $filecom[0]; |
Line 866 sub display_line {
|
Line 866 sub display_line {
|
# display user directory |
# display user directory |
} |
} |
if ($filecom[1] eq 'user') { |
if ($filecom[1] eq 'user') { |
$r->print("<tr valign=$valign bgcolor=$fileclr>$extrafield"); |
$r->print("<tr valign=$valign bgcolor=\"$fileclr\">$extrafield"); |
$r->print("<td nowrap>\n"); |
$r->print("<td nowrap>\n"); |
my $curdir = $startdir.$filecom[0].'/'; |
my $curdir = $startdir.$filecom[0].'/'; |
my $anchor = $curdir; |
my $anchor = $curdir; |
Line 907 sub display_line {
|
Line 907 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='nowrap' valign='top'>"); |
$r->print("<tr valign='$valign' bgcolor=\"$fileclr\"><td nowrap='nowrap' valign='top'>"); |
|
|
if ($env{'form.catalogmode'} eq 'interactive') { |
if ($env{'form.catalogmode'} eq 'interactive') { |
my $quotable_filelink = &Apache::loncommon::escape_single($filelink); |
my $quotable_filelink = &Apache::loncommon::escape_single($filelink); |
Line 1072 sub display_line {
|
Line 1072 sub display_line {
|
my $curdir = $startdir.$filecom[0].'/'; |
my $curdir = $startdir.$filecom[0].'/'; |
my $anchor = $curdir; |
my $anchor = $curdir; |
$anchor =~ s/\///g; |
$anchor =~ s/\///g; |
$r->print("<tr bgcolor=$fileclr>$extrafield<td valign=$valign>"); |
$r->print("<tr bgcolor=\"$fileclr\">$extrafield<td valign=$valign>"); |
&begin_form ($r,$curdir); |
&begin_form ($r,$curdir); |
my $indentm1 = $indent-1; |
my $indentm1 = $indent-1; |
if ($indentm1 < 11 and $indentm1 > 0) { |
if ($indentm1 < 11 and $indentm1 > 0) { |