--- loncom/interface/londocs.pm 2003/07/16 19:36:02 1.67 +++ loncom/interface/londocs.pm 2003/08/05 12:47:21 1.71 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.67 2003/07/16 19:36:02 www Exp $ +# $Id: londocs.pm,v 1.71 2003/08/05 12:47:21 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -265,7 +265,7 @@ END } } $url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//; - if ($residx) { + if (($residx) && ($folder!~/supplemental/)) { $url.=(($url=~/\?/)?'&':'?').'symb='. &Apache::lonnet::escape(&Apache::lonnet::symbclean( &Apache::lonnet::declutter('uploaded/'. @@ -329,9 +329,12 @@ sub checkonthis { $r->print(' '); } $r->print('- Rendering: '); + my $oldpath=$ENV{'request.filename'}; + $ENV{'request.filename'}=&Apache::lonnet::filelocation('',$url); &Apache::lonxml::xmlparse($r,'web', &Apache::lonnet::getfile( &Apache::lonnet::filelocation('',$url))); + $ENV{'request.filename'}=$oldpath; if (($Apache::lonxml::errorcount) || ($Apache::lonxml::warningcount)) { if ($Apache::lonxml::errorcount) { @@ -375,7 +378,7 @@ sub handler { # --------------------------------------------- Initialize help topics for this foreach ('Adding_Course_Doc','Main_Course_Documents', 'Adding_External_Resource','Navigate_Content', - 'Adding_Folders','Docs_Overview', + 'Adding_Folders','Docs_Overview', 'Load_Map', 'Supplemental', 'Score_Upload_Form', 'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') { $help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_); @@ -408,6 +411,7 @@ sub handler { } } &untiehash(); + $r->print('
No content modifications yet.
'); } @@ -726,10 +731,11 @@ $help{'Importing_LON-CAPA_Resource'}