[LON-CAPA-cvs] cvs: loncom(version_2_10_X) /interface loncommon.pm

[raeburn]

raeburn		Wed Jan 12 05:13:04 2011 EDT

  Modified files:              (Branch: version_2_10_X)
    /loncom/interface	loncommon.pm 
  Log:
  - Coding style to improve readability.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.948.2.24 loncom/interface/loncommon.pm:1.948.2.25
--- loncom/interface/loncommon.pm:1.948.2.24	Wed Jan 12 04:58:54 2011
+++ loncom/interface/loncommon.pm	Wed Jan 12 05:13:03 2011
@@ -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 @@
         $dc_info = qq|<span class="LC_cusr_subheading">($dc_info)</span>|;
     }
 
-    $bodytag .= qq|<div id="LC_nav_bar">$name $role</div>
-            <ol class="LC_primary_menu LC_right">
-                <li>$menu</li>
-            </ol><div id="LC_realm"> $realm $dc_info</div>| unless $env{'form.inhibitmenu'};
+    unless ($env{'form.inhibitmenu'}) {
+        $bodytag .= qq|<div id="LC_nav_bar">$name $role</div>
+                       <ol class="LC_primary_menu LC_right">
+                       <li>$menu</li>
+                       </ol><div id="LC_realm"> $realm $dc_info</div>|;
+    }
+
     return(<<ENDBODY);
 $bodytag
 <table id="LC_title_bar" class="LC_with_remote">