--- loncom/publisher/lonpubdir.pm 2004/10/29 18:40:40 1.64 +++ loncom/publisher/lonpubdir.pm 2004/11/08 22:42:20 1.65 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Construction Space Directory Lister # -# $Id: lonpubdir.pm,v 1.64 2004/10/29 18:40:40 raeburn Exp $ +# $Id: lonpubdir.pm,v 1.65 2004/11/08 22:42:20 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -91,10 +91,10 @@ sub handler { my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom); &startpage($r, $uname, $udom, $thisdisfn); # Put out the start of page. - - &dircontrols($r,$uname,$udom,$thisdisfn); # Put out actions for directory, + if ($ENV{'environment.remote'} eq 'off') { + &dircontrols($r,$uname,$udom,$thisdisfn); # Put out actions for directory, # browse/upload + new file page. - + } &resourceactions($r,$uname,$udom,$thisdisfn); #Put out form used for printing/deletion etc. my $numdir = 0; @@ -203,9 +203,12 @@ sub startpage { 'this.form.action=this.form.recent.value;this.form.submit()'). ''); &Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction); - - $r->print(&Apache::loncommon::bodytag('Construction Space',undef,undef,undef,undef,undef,$pagetitle)); - + if ($ENV{'environment.remote'} eq 'off') { + $ENV{'request.noversionuri'}=$currdir; + $r->print(&Apache::loncommon::bodytag('Construction Space',undef,undef,undef,undef,undef,$pagetitle)); + } else { + $r->print($pagetitle); + } $r->print(&Apache::loncommon::help_open_menu('','','','',3,'Authoring')); my $pubdirscript=(<