--- loncom/interface/loncommon.pm 2009/07/08 07:51:01 1.851 +++ loncom/interface/loncommon.pm 2009/07/09 08:53:39 1.853 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.851 2009/07/08 07:51:01 tempelho Exp $ +# $Id: loncommon.pm,v 1.853 2009/07/09 08:53:39 droeschl Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4394,6 +4394,9 @@ sub bodytag { $dc_info = '('.$dc_info.')'; } + $role = "($role)" if $role; + &get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']); + if ($env{'environment.remote'} eq 'off') { # No Remote if ($env{'request.state'} eq 'construct') { @@ -4411,8 +4414,9 @@ sub bodytag { if ($no_nav_bar) { $bodytag .= $titletable; } else { - $bodytag .= qq|
|; + $bodytag .= qq| | unless $env{'form.inhibitmenu'}; + if ($env{'request.state'} eq 'construct') { $bodytag .= &Apache::lonmenu::menubuttons($forcereg,$forcereg, $titletable); @@ -4436,7 +4440,12 @@ sub bodytag { # Explicit link to get inline menu my $menu= ($no_inline_link?'' - :'