--- loncom/interface/londocs.pm 2004/04/05 20:14:06 1.112 +++ loncom/interface/londocs.pm 2004/04/06 23:05:29 1.113 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.112 2004/04/05 20:14:06 raeburn Exp $ +# $Id: londocs.pm,v 1.113 2004/04/06 23:05:29 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -466,21 +466,23 @@ END } } $url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//; - if (($residx) && ($folder!~/supplemental/)) { - $url.=(($url=~/\?/)?'&':'?').'symb='. - &Apache::lonnet::escape(&Apache::lonnet::symbclean( + if ((!$isfolder) && ($residx) && ($folder!~/supplemental/)) { + my $symb=&Apache::lonnet::symbclean( &Apache::lonnet::declutter('uploaded/'. $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.'/'. $ENV{'course.'.$ENV{'request.course.id'}.'.num'}.'/'.$folder. '.sequence'). '___'.$residx.'___'. - &Apache::lonnet::declutter($url))); + &Apache::lonnet::declutter($url)); + (undef,undef,$url)=&Apache::lonnet::decode_symb($symb); + $url=&Apache::lonnet::clutter($url); + $url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb); } if ($isfolder) { $url.='&foldername='. &Apache::lonnet::escape($foldertitle); } - $line.=''. - "$title"; + $line.=''. + "$title"; return $line; }