[BACK]Return to lonpubdir.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpubdir.pm between versions 1.64 and 1.65

version 1.64, 2004/10/29 18:40:40 version 1.65, 2004/11/08 22:42:20
Line 91  sub handler { Line 91  sub handler {
   my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);    my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);
   
   &startpage($r, $uname, $udom, $thisdisfn);   # Put out the start of page.    &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.                                                 # browse/upload + new file page.
     }
   &resourceactions($r,$uname,$udom,$thisdisfn); #Put out form used for printing/deletion etc.    &resourceactions($r,$uname,$udom,$thisdisfn); #Put out form used for printing/deletion etc.
   
   my $numdir = 0;    my $numdir = 0;
Line 203  sub startpage { Line 203  sub startpage {
                  'this.form.action=this.form.recent.value;this.form.submit()').                   'this.form.action=this.form.recent.value;this.form.submit()').
               '</form>');                '</form>');
      &Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction);       &Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction);
       if ($ENV{'environment.remote'} eq 'off') {
     $r->print(&Apache::loncommon::bodytag('Construction Space',undef,undef,undef,undef,undef,$pagetitle));   $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'));      $r->print(&Apache::loncommon::help_open_menu('','','','',3,'Authoring'));
     my $pubdirscript=(<<ENDPUBDIRSCRIPT);      my $pubdirscript=(<<ENDPUBDIRSCRIPT);
 <script>  <script>
Removed from v.1.64  
changed lines
  Added in v.1.65

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>