--- loncom/interface/loncommon.pm 2011/01/12 04:58:54 1.948.2.24 +++ loncom/interface/loncommon.pm 2011/01/12 05:13:03 1.948.2.25 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.948.2.24 2011/01/12 04:58:54 raeburn Exp $ +# $Id: loncommon.pm,v 1.948.2.25 2011/01/12 05:13:03 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4769,10 +4769,13 @@ sub bodytag { $dc_info = qq|($dc_info)|; } - $bodytag .= qq|
$name $role
-
    -
  1. $menu
  2. -
$realm $dc_info
| unless $env{'form.inhibitmenu'}; + unless ($env{'form.inhibitmenu'}) { + $bodytag .= qq|
$name $role
+
    +
  1. $menu
  2. +
$realm $dc_info
|; + } + return(<