--- loncom/interface/londocs.pm 2003/07/15 19:52:47 1.65 +++ loncom/interface/londocs.pm 2003/08/07 19:12:13 1.69.2.1.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.65 2003/07/15 19:52:47 bowersj2 Exp $ +# $Id: londocs.pm,v 1.69.2.1.2.1 2003/08/07 19:12:13 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -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,8 +378,8 @@ sub handler { # --------------------------------------------- Initialize help topics for this foreach ('Adding_Course_Doc','Main_Course_Documents', 'Adding_External_Resource','Navigate_Content', - 'Adding_Folders','Docs_Overview', - 'Supplemental', + 'Adding_Folders','Docs_Overview', 'Load_Map', + 'Supplemental', 'Score_Upload_Form', 'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') { $help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_); } @@ -388,9 +391,9 @@ sub handler { $help{'Bulletin Board'} = &Apache::loncommon::help_open_topic( 'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages'); $help{'My Personal Info'} = &Apache::loncommon::help_open_topic( - 'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages'); - - + 'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages'); + $help{'Caching'} = &Apache::loncommon::help_open_topic('Caching'); + if ($ENV{'form.verify'}) { my $loaderror=&Apache::lonnet::overloaderror($r); @@ -408,6 +411,7 @@ sub handler { } } &untiehash(); + $r->print('

Done.

'); } elsif ($ENV{'form.versions'}) { $r->print('Check Versions'. &Apache::loncommon::bodytag('Check Course Document Versions')); @@ -495,6 +499,7 @@ ENDHEADERS } } $r->print(''); + $r->print('

Done.

'); } else { $r->print('

No content modifications yet.

'); } @@ -685,7 +690,8 @@ ENDCOURSEVERIFY ''. '
'. '

Changes will become active for your current session after , or the next time you log in.

'); +$ENV{'request.role'}.'" value="1" />, or the next time you log in.'. +$help{'Caching'}.''); } my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time. '.sequence'; @@ -725,10 +731,11 @@ $help{'Importing_LON-CAPA_Resource'}


- -
+ +value="Select Map"> +$help{'Load_Map'}

@@ -780,15 +787,6 @@ $help{'Navigate_Content'} onClick="javascript:makesmppage();" /> $help{'Simple Page'} -
- - - - -$help{'Simple Problem'} - -
@@ -796,6 +794,7 @@ onClick="javascript:makesmpproblem();" / +$help{'Score_Upload_Form'}