version 1.71, 2003/07/22 19:00:51
|
version 1.73, 2003/08/11 17:27:24
|
Line 554 sub scanDir {
|
Line 554 sub scanDir {
|
} |
} |
|
|
if ($dom eq 'domain') { |
if ($dom eq 'domain') { |
$compuri = join('',$strip,'/'); # dom list has /res/<domain name> |
# dom list has full path /res/<domain name>/ already |
$curdir = $compuri; |
$curdir=''; |
|
$compuri = (split(/\&/,$line))[0]; |
} else { |
} else { |
# user, dir & file have name only, i.e., w/o path |
# user, dir & file have name only, i.e., w/o path |
$compuri = join('',$startdir,$strip,'/'); |
$compuri = join('',$startdir,$strip,'/'); |
Line 705 sub display_line {
|
Line 706 sub display_line {
|
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]; |
$anchor =~ s/\///g; |
$anchor =~ s/\///g; |
$r->print ('<a name="'.$anchor.'">'); |
$r->print ('<a name="'.$anchor.'">'); |
$r->print ('<input type="hidden" name="acts" value="">'); |
$r->print ('<input type="hidden" name="acts" value="">'); |
Line 715 sub display_line {
|
Line 716 sub display_line {
|
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'. |
$r->print (' name="'.$msg.'" height="22" type="image" border="0">'. |
"\n"); |
"\n"); |
$r->print ('<a href="javascript:gothere(\''.$filecom[0]. |
$r->print ('<a href="javascript:gothere(\''.$filecom[0]. |
'/\')"><img src="'.$iconpath.'server.gif"'); |
'\')"><img src="'.$iconpath.'server.gif"'); |
$r->print (' border="0" /></a>'."\n"); |
$r->print (' border="0" /></a>'."\n"); |
$r->print ("Domain - $listname "); |
$r->print ("Domain - $listname "); |
if ($Apache::lonnet::domaindescription{$listname}) { |
if ($Apache::lonnet::domaindescription{$listname}) { |