--- loncom/interface/londocs.pm 2002/09/04 20:33:38 1.19 +++ loncom/interface/londocs.pm 2002/09/06 15:18:23 1.21 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.19 2002/09/04 20:33:38 www Exp $ +# $Id: londocs.pm,v 1.21 2002/09/06 15:18:23 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -234,8 +234,11 @@ sub handler { my $events=''; my $showdoc=0; &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, - ['folder','foldername','showdoc']); - unless ($ENV{'form.showdoc'}) { # got called from remote + ['folder','foldername']); + if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) { + $showdoc=$1; + } + unless ($showdoc) { # got called from remote $forcestandard=($ENV{'form.folder'}=~/^default_/); $forcesupplement=($ENV{'form.folder'}=~/^supplemental_/); @@ -247,8 +250,7 @@ sub handler { } } else { # got called in sequence from course $allowed=0; - $showdoc=1; - $script=&Apache::lonxml::registerurl(1,undef); + $script=''.&Apache::lonxml::registerurl(1,undef).' ENDDOCUMENT if ($allowed) { $r->print(< function makenewfolder(targetform,folderseq) { var foldername=prompt('Name of New Folder','New Folder'); if (foldername) { @@ -305,7 +307,8 @@ function finishpick() { ENDNEWSCRIPT } # -------------------------------------------------------------------- Body tag - $r->print(&Apache::loncommon::bodytag('Course Documents','',$events)); + $r->print(''. + &Apache::loncommon::bodytag('Course Documents','',$events)); unless ($showdoc) { # --------------------------------------------------------- Standard documents if (($standard) && ($allowed) && (!$forcesupplement)) { @@ -367,9 +370,11 @@ value="Syllabus=/public/$coursedom/$cour
+ + - +
@@ -463,7 +468,7 @@ ENDSUPFORM } else { # -------------------------------------------------------- This is showdoc mode $r->print("

Uploaded Document

It is recommended that you use an up-to-date virus scanner before handling this file.

". - &entryline(0,"Click to download or use your browser's Save Link function",$ENV{'form.showdoc'}).'

'); + &entryline(0,"Click to download or use your browser's Save Link function",$showdoc).'

'); } $r->print(''); return OK;