--- loncom/publisher/lonpubdir.pm 2009/11/18 20:48:06 1.125 +++ loncom/publisher/lonpubdir.pm 2010/03/10 21:26:04 1.126 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Construction Space Directory Lister # -# $Id: lonpubdir.pm,v 1.125 2009/11/18 20:48:06 droeschl Exp $ +# $Id: lonpubdir.pm,v 1.126 2010/03/10 21:26:04 droeschl Exp $ # # Copyright Michigan State University Board of Trustees # @@ -93,12 +93,8 @@ sub handler { my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom); &startpage($r, $uname, $udom, $thisdisfn); # Put out the start of page. - if ($env{'environment.remote'} eq 'off') { - &dircontrols($r,$uname,$udom,$thisdisfn); # Put out actions for directory, + &dircontrols($r,$uname,$udom,$thisdisfn); # Put out actions for directory, # browse/upload + new file page. - } else { - &pubbuttons($r,$uname,$thisdisfn); - } &resourceactions($r,$uname,$udom,$thisdisfn); #Put out form used for printing/deletion etc. my $numdir = 0; @@ -209,13 +205,8 @@ sub startpage { # breadcrumbs (and tools) will be created # in start_page->bodytag->innerregister - if ($env{'environment.remote'} eq 'off') { - $env{'request.noversionuri'}=$currdir.'/'; - $r->print(&Apache::loncommon::start_page('Construction Space',undef)); - } else { - $r->print(&Apache::loncommon::start_page('Construction Space',undef, - { 'only_body' => 1,})); - } + $env{'request.noversionuri'}=$currdir.'/'; + $r->print(&Apache::loncommon::start_page('Construction Space',undef)); $r->print(&Apache::loncommon::head_subbox( &Apache::loncommon::CSTR_pageheader(1))); @@ -331,11 +322,6 @@ parent.lastknownpriv='/~$uname$esc_thisd ENDPUBDIRSCRIPT $r->print($pubdirscript); - - if ((($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) && - $env{'environment.remote'} ne 'off') { - $r->print('

'.&mt('Co-Author [_1]',$uname.':'.$udom).'

'); - } } sub dircontrols { @@ -448,17 +434,6 @@ sub dircontrols { END } -sub pubbuttons { - my ($r,$uname,$thisdisfn) = @_; - $r->print('
'. - '
'. - ''. -'
'); -} - sub resourceactions { my ($r,$uname,$udom,$thisdisfn) = @_; $r->print(<