--- loncom/interface/lonindexer.pm 2003/07/22 19:00:51 1.71 +++ loncom/interface/lonindexer.pm 2003/08/11 17:27:24 1.73 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Directory Indexer # -# $Id: lonindexer.pm,v 1.71 2003/07/22 19:00:51 ng Exp $ +# $Id: lonindexer.pm,v 1.73 2003/08/11 17:27:24 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -554,8 +554,9 @@ sub scanDir { } if ($dom eq 'domain') { - $compuri = join('',$strip,'/'); # dom list has /res/ - $curdir = $compuri; + # dom list has full path /res// already + $curdir=''; + $compuri = (split(/\&/,$line))[0]; } else { # user, dir & file have name only, i.e., w/o path $compuri = join('',$startdir,$strip,'/'); @@ -705,8 +706,8 @@ sub display_line { if ($ENV{'form.dirPointer'} eq "on"); $r->print("$extrafield"); $r->print(""); - &begin_form ($r,$filecom[0].'/'); - my $anchor = $filecom[0].'/'; + &begin_form ($r,$filecom[0]); + my $anchor = $filecom[0]; $anchor =~ s/\///g; $r->print (''); $r->print (''); @@ -715,7 +716,7 @@ sub display_line { $r->print (' name="'.$msg.'" height="22" type="image" border="0">'. "\n"); $r->print ('print (' border="0" />'."\n"); $r->print ("Domain - $listname "); if ($Apache::lonnet::domaindescription{$listname}) {