--- loncom/interface/loncommon.pm 2006/05/01 20:50:50 1.360 +++ loncom/interface/loncommon.pm 2006/05/01 21:03:35 1.361 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.360 2006/05/01 20:50:50 albertel Exp $ +# $Id: loncommon.pm,v 1.361 2006/05/01 21:03:35 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2773,6 +2773,9 @@ Inputs: =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 @@ -2785,7 +2788,7 @@ other decorations will be returned. sub bodytag { my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle, - $notopbar,$bgcolor,$notitle)=@_; + $notopbar,$bgcolor,$notitle,$no_inline_link)=@_; $title=&mt($title); @@ -2845,12 +2848,13 @@ sub bodytag { $env{'environment.middlename'} $env{'environment.lastname'} $env{'environment.generation'} +
ENDROLE @@ -2932,7 +2936,8 @@ ENDROLE $lonhttpdPort.$img.'" alt="'.$function.'" />'; # Explicit link to get inline menu - my $menu='