version 1.87, 2004/01/26 19:55:44
|
version 1.89, 2004/01/29 00:45:12
|
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 895 sub display_line {
|
Line 900 sub display_line {
|
my $output=''; |
my $output=''; |
my $embstyle=&Apache::loncommon::fileembstyle($curfext); |
my $embstyle=&Apache::loncommon::fileembstyle($curfext); |
if ($embstyle eq 'ssi') { |
if ($embstyle eq 'ssi') { |
$output=&Apache::lonnet::ssi_body($filelink); |
my $cache=$Apache::lonnet::perlvar{'lonDocRoot'}.$filelink. |
$output='<font size="-2">'.$output.'</font>'; |
'.tmp'; |
|
if ((!$ENV{'form.updatedisplay'}) && |
|
(-e $cache)) { |
|
open(FH,$cache); |
|
$output=join("\n",<FH>); |
|
close(FH); |
|
} else { |
|
$output=&Apache::lonnet::ssi_body($filelink); |
|
open(FH,">$cache"); |
|
print FH $output; |
|
close(FH); |
|
} |
|
$output='<font size="-2">'.$output.'</font>'; |
} elsif ($embstyle eq 'img') { |
} elsif ($embstyle eq 'img') { |
$output='<img src="'.$filelink.'" />'; |
$output='<img src="'.$filelink.'" />'; |
} elsif ($filelink=~/^\/res\/(\w+)\/(\w+)\//) { |
} elsif ($filelink=~/^\/res\/(\w+)\/(\w+)\//) { |
Line 1009 sub begin_form {
|
Line 1026 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++; |
} |
} |
|
|