--- loncom/interface/londocs.pm 2003/07/18 14:31:43 1.68 +++ loncom/interface/londocs.pm 2003/07/29 19:53:41 1.70 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.68 2003/07/18 14:31:43 bowersj2 Exp $ +# $Id: londocs.pm,v 1.70 2003/07/29 19:53:41 www 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) { @@ -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.

'); }