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

Diff for /loncom/interface/loncommon.pm between versions 1.360 and 1.361

version 1.360, 2006/05/01 20:50:50 version 1.361, 2006/05/01 21:03:35
Line 2773  Inputs: Line 2773  Inputs:
   
 =item * $notitle, if true keep the nav controls, but remove the title bar  =item * $notitle, if true keep the nav controls, but remove the title bar
   
   =item * $no_inline_link, if true and in remote mode, don't show the 
            'Switch To Inline Menu' link
   
   
 =back  =back
   
Line 2785  other decorations will be returned. Line 2788  other decorations will be returned.
   
 sub bodytag {  sub bodytag {
     my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,      my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,
  $notopbar,$bgcolor,$notitle)=@_;   $notopbar,$bgcolor,$notitle,$no_inline_link)=@_;
   
     $title=&mt($title);      $title=&mt($title);
   
Line 2845  sub bodytag { Line 2848  sub bodytag {
     $env{'environment.middlename'}      $env{'environment.middlename'}
     $env{'environment.lastname'}      $env{'environment.lastname'}
     $env{'environment.generation'}      $env{'environment.generation'}
        
 </div>  </div>
 <div class="LC_title_bar_role">  <div class="LC_title_bar_role">
 $role  $role&nbsp;
 </div>  </div>
 <div class="LC_title_bar_realm">  <div class="LC_title_bar_realm">
 $realm  $realm&nbsp;
 </div>  </div>
 </td>  </td>
 ENDROLE  ENDROLE
Line 2932  ENDROLE Line 2936  ENDROLE
         $lonhttpdPort.$img.'" alt="'.$function.'" />';          $lonhttpdPort.$img.'" alt="'.$function.'" />';
   
     # Explicit link to get inline menu      # Explicit link to get inline menu
     my $menu='<br /><a href="/adm/remote?action=collapse">'.&mt('Switch to Inline Menu Mode').'</a>';      my $menu= ($no_inline_link?''
          :'<br /><a href="/adm/remote?action=collapse">'.&mt('Switch to Inline Menu Mode').'</a>');
     #      #
     if ($notitle) {      if ($notitle) {
  return $bodytag;   return $bodytag;
Line 3451  Inputs: $title - optional title for the Line 3456  Inputs: $title - optional title for the
                                     head -> skip the <html><head> generation                                      head -> skip the <html><head> generation
                                     body -> skip all <body> generation                                      body -> skip all <body> generation
   
                     no_inline_link -> if true and in remote mode, don't show the 
                                       'Switch To Inline Menu' link
   
 =back  =back
   
 =cut  =cut
Line 3486  sub start_page { Line 3494  sub start_page {
  $args->{'only_body'},      $args->{'domain'},   $args->{'only_body'},      $args->{'domain'},
  $args->{'force_register'}, $args->{'body_title'},   $args->{'force_register'}, $args->{'body_title'},
  $args->{'no_nav_bar'},     $args->{'bgcolor'},   $args->{'no_nav_bar'},     $args->{'bgcolor'},
  $args->{'no_title'});   $args->{'no_title'},       $args->{'no_inline_link'});
  }   }
     }      }
   
Removed from v.1.360  
changed lines
  Added in v.1.361

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