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

Diff for /loncom/xml/londefdef.pm between versions 1.408 and 1.411

version 1.408, 2009/05/28 12:39:12 version 1.411, 2009/10/01 15:31:24
Line 540  sub start_body { Line 540  sub start_body {
   
     # Breadcrumbs      # Breadcrumbs
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb({      if ($env{'request.state'} eq 'construct') {
         'text'  => 'Construction Space',          &Apache::lonhtmlcommon::add_breadcrumb({
         'href'  => '', # FIXME Add link to /priv/[user]              'text'  => 'Construction Space',
     });              'href'  => &Apache::loncommon::authorspace(),
     &Apache::lonhtmlcommon::add_breadcrumb({          });
         'text'  => 'HTML Editor',          &Apache::lonhtmlcommon::add_breadcrumb({
         'href'  => '',              'text'  => 'HTML Editor',
     });                  'href'  => '',
           });
       } else {
           # FIXME Where are we?
       }
   
  $currentstring =    $currentstring = 
     &Apache::loncommon::start_page($Apache::londefdef::title,      &Apache::loncommon::start_page($Apache::londefdef::title,
Line 560  sub start_body { Line 564  sub start_body {
     $currentstring .= &Apache::lonhtmlcommon::breadcrumbs();      $currentstring .= &Apache::lonhtmlcommon::breadcrumbs();
   
         my $header = '';          my $header = '';
           if ($env{'request.state'} ne 'published' &&
               $env{'request.state'} ne 'construct') {
               $header=&Apache::lonmenu::constspaceform();
           }
         if ($env{'request.state'} ne 'published') {          if ($env{'request.state'} ne 'published') {
             $header=&Apache::lonmenu::constspaceform()              $header.=&Apache::londefdef::edit_controls();
                    .&Apache::londefdef::edit_controls();          }
           if ($env{'request.state'} eq 'construct') {
               $currentstring.=&Apache::loncommon::head_subbox(
                                   &Apache::loncommon::CSTR_pageheader()
                                  .$header);
         }          }
         $currentstring.=&Apache::loncommon::head_subbox(  
                             &Apache::loncommon::CSTR_pageheader()  
                            .$header);  
         $currentstring.=&Apache::lonxml::message_location();          $currentstring.=&Apache::lonxml::message_location();
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
         $currentstring = '';   #  '\begin{document}' is in header.          $currentstring = '';   #  '\begin{document}' is in header.
Removed from v.1.408  
changed lines
  Added in v.1.411

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