--- loncom/interface/loncommon.pm	2006/02/27 20:24:21	1.304
+++ loncom/interface/loncommon.pm	2006/03/04 21:32:30	1.305
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.304 2006/02/27 20:24:21 banghart Exp $
+# $Id: loncommon.pm,v 1.305 2006/03/04 21:32:30 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2893,6 +2893,8 @@ ENDROLE
         $dc_info.= $cid.' '.$env{'course.'.$cid.'.internal.coursecode'};
         $dc_info = '('.$dc_info.')';
     }
+    # Explicit link to get inline menu
+    my $menu='<br /><font size="2" face="Arial, Helvetica, sans-serif">&nbsp;<a href="/adm/remote?action=collapse">'.&mt('Switch to Inline Menu Mode').'</a></font>';
     #
     return(<<ENDBODY);
 $bodytag
@@ -2903,7 +2905,7 @@ $upperleft</td>
 </tr>
 <tr>
 <td rowspan="3" bgcolor="$tabbg">
-$titleinfo $dc_info
+$titleinfo $dc_info $menu
 </td><td bgcolor="$tabbg" align="right">
 <font size="2" face="Arial, Helvetica, sans-serif">
     $env{'environment.firstname'}