--- loncom/interface/londocs.pm 2004/04/08 21:10:25 1.117 +++ loncom/interface/londocs.pm 2004/04/24 05:20:54 1.118 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.117 2004/04/08 21:10:25 albertel Exp $ +# $Id: londocs.pm,v 1.118 2004/04/24 05:20:54 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -485,9 +485,7 @@ END $url='/adm/coursedocs?'; $folderarg=$1; $isfolder=1; - } else { - $url=&Apache::lonnet::tokenwrapper($url); - } + } } $url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//; if ((!$isfolder) && ($residx) && ($folder!~/supplemental/)) { @@ -1128,6 +1126,15 @@ ENDNEWSCRIPT 'vc' => 'Verify Content', 'cv' => 'Check/Set Resource Versions', ); + + my $folderpath=$ENV{'form.folderpath'}; + if (!$folderpath) { + if ($ENV{'form.folder'} eq '' || + $ENV{'form.folder'} eq 'supplemental') { + $folderpath='default&'. + &Apache::lonnet::escape(&mt('Main Course Documents')); + } + } $r->print(< @@ -1136,7 +1143,7 @@ ENDNEWSCRIPT
- +
@@ -1301,7 +1308,7 @@ onClick="javascript:makeabout();" /> - +