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

[www]

www		Sat Mar  4 16:32:30 2006 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  Bug #2378: since some browsers do not support onunload, need explict link
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.304 loncom/interface/loncommon.pm:1.305
--- loncom/interface/loncommon.pm:1.304	Mon Feb 27 15:24:21 2006
+++ loncom/interface/loncommon.pm	Sat Mar  4 16:32:30 2006
@@ -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 @@
         $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 @@
 </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'}