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

Diff for /loncom/interface/loncommon.pm between versions 1.902 and 1.903

version 1.902, 2009/10/24 03:24:13 version 1.903, 2009/10/26 18:59:16
Line 4444  sub bodytag { Line 4444  sub bodytag {
   
     if ($env{'environment.remote'} eq 'off') {      if ($env{'environment.remote'} eq 'off') {
         # No Remote          # No Remote
         if ($env{'request.state'} eq 'construct') {          if ($no_nav_bar) { return $bodytag; } 
             $forcereg=1;  
           if ($env{'request.state'} eq 'construct') { $forcereg=1; }
   
           #    if ($env{'request.state'} eq 'construct') {
           #        $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls
           #    }
   
           $bodytag .= qq|<div id="LC_nav_bar">$name $role<br />
               <em>$realm</em> $dc_info</div>| unless $env{'form.inhibitmenu'};
   
           if (   $env{'form.inhibitmenu'} eq 'yes' 
               || $ENV{'REQUEST_URI'} eq '/adm/logout'
               || $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {
   
               return $bodytag;
         }          }
   
     #    if ($env{'request.state'} eq 'construct') {          $bodytag .= Apache::lonhtmlcommon::scripttag(
     #        $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls              Apache::lonmenu::utilityfunctions(), 'start');
     #    }  
           $bodytag .= Apache::lonmenu::primary_menu();
         my $titletable = '<table id="LC_title_bar">'  
                             ."<tr><td> $titleinfo $dc_info</td>"          #don't show menus for public users
                             .'</tr></table>';          if($env{'user.name'} ne 'public' && $env{'user.domain'} ne 'public'){
               $bodytag .= Apache::lonmenu::secondary_menu();
         if ($no_nav_bar) {              $bodytag .= Apache::lonmenu::serverform();
             $bodytag .= $titletable;              $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end'); 
         } else {              $bodytag .= Apache::lonmenu::innerregister($forcereg) if $forcereg;
             $bodytag .= qq|<div id="LC_nav_bar">$name $role<br />          }else{
                 <em>$realm</em> $dc_info</div>| unless $env{'form.inhibitmenu'};              # this is to seperate menu from content when there's no secondary
               # menu. Especially needed for public accessible ressources.
 #SD $titletable is obsolete              $bodytag .= '<hr style="clear:both" />';
 #SD            if ($env{'request.state'} eq 'construct') {              $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end'); 
 #SD                $bodytag .= &Apache::lonmenu::menubuttons($forcereg,$titletable);  
 #SD            } else {  
 #SD                $bodytag .= &Apache::lonmenu::menubuttons($forcereg).$titletable;  
 #SD            }  
                if (   $env{'form.inhibitmenu'} eq 'yes'   
                    || $ENV{'REQUEST_URI'} eq '/adm/logout'  
                    || $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {  
                      
                    return $bodytag;  
                }  
   
                $bodytag .= Apache::lonhtmlcommon::scripttag(  
                                 Apache::lonmenu::utilityfunctions(),  
                                 'start');  
                $bodytag .= Apache::lonmenu::primary_menu();  
                $bodytag .= Apache::lonmenu::secondary_menu();  
                #SD remove next line  
                #$bodytag .= Apache::lonmenu::menubuttons($forcereg);  
                $bodytag .= Apache::lonmenu::serverform();  
                $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');   
                $bodytag .= Apache::lonmenu::innerregister($forcereg) if $forcereg;  
         }          }
   
           #SD testing
           #$bodytag .= Apache::lonmenu::menubuttons($forcereg);
         return $bodytag;          return $bodytag;
     }      }
   
Removed from v.1.902  
changed lines
  Added in v.1.903

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