version 1.87, 2004/01/26 19:55:44
|
version 1.88, 2004/01/27 16:35:37
|
Line 511 END
|
Line 511 END
|
my $indent = 0; |
my $indent = 0; |
$uri = $uri.'/' if $uri !~ /.*\/$/; |
$uri = $uri.'/' if $uri !~ /.*\/$/; |
|
|
|
if ($ENV{'form.dirPointer'} ne 'on') { |
$hash{'top.level'} = $uri; |
$hash{'top.level'} = $uri; |
$toplevel = $uri; |
$toplevel = $uri; |
|
} else { |
|
$toplevel = $hash{'top.level'}; |
|
} |
|
|
# -------------------------------- if not at top level, provide an uplink arrow |
# -------------------------------- if not at top level, provide an uplink arrow |
if ($toplevel ne '/res/'){ |
if ($toplevel ne '/res/'){ |
Line 725 sub display_line {
|
Line 728 sub display_line {
|
|
|
# display domain |
# display domain |
if ($filecom[1] eq 'domain') { |
if ($filecom[1] eq 'domain') { |
|
$r->print ('<input type="hidden" name="dirPointer" value="on">'."\n") |
|
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]); |
Line 1009 sub begin_form {
|
Line 1014 sub begin_form {
|
'enctype="application/x-www-form-urlencoded">'."\n"); |
'enctype="application/x-www-form-urlencoded">'."\n"); |
$r->print ('<input type="hidden" name="openuri" value="'.$uri.'">'. |
$r->print ('<input type="hidden" name="openuri" value="'.$uri.'">'. |
"\n"); |
"\n"); |
|
$r->print ('<input type="hidden" name="dirPointer" value="on">'."\n"); |
$dnum++; |
$dnum++; |
} |
} |
|
|