--- loncom/interface/londocs.pm 2003/07/16 19:36:02 1.67
+++ 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.67 2003/07/16 19:36:02 www 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,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('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.
');
}
@@ -726,10 +731,11 @@ $help{'Importing_LON-CAPA_Resource'}
-
-
+
+value="Select Map">
+$help{'Load_Map'}
@@ -781,15 +787,6 @@ $help{'Navigate_Content'}
onClick="javascript:makesmppage();" /> $help{'Simple Page'}
-
|