--- loncom/interface/loncommon.pm 2006/05/01 20:50:50 1.360
+++ loncom/interface/loncommon.pm 2006/05/01 21:03:35 1.361
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.360 2006/05/01 20:50:50 albertel Exp $
+# $Id: loncommon.pm,v 1.361 2006/05/01 21:03:35 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2773,6 +2773,9 @@ Inputs:
=item * $notitle, if true keep the nav controls, but remove the title bar
+=item * $no_inline_link, if true and in remote mode, don't show the
+ 'Switch To Inline Menu' link
+
=back
@@ -2785,7 +2788,7 @@ other decorations will be returned.
sub bodytag {
my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,$customtitle,
- $notopbar,$bgcolor,$notitle)=@_;
+ $notopbar,$bgcolor,$notitle,$no_inline_link)=@_;
$title=&mt($title);
@@ -2845,12 +2848,13 @@ sub bodytag {
$env{'environment.middlename'}
$env{'environment.lastname'}
$env{'environment.generation'}
+
-$role
+$role
-$realm
+$realm
ENDROLE
@@ -2932,7 +2936,8 @@ ENDROLE
$lonhttpdPort.$img.'" alt="'.$function.'" />';
# Explicit link to get inline menu
- my $menu='
'.&mt('Switch to Inline Menu Mode').'';
+ my $menu= ($no_inline_link?''
+ :'
'.&mt('Switch to Inline Menu Mode').'');
#
if ($notitle) {
return $bodytag;
@@ -3451,6 +3456,9 @@ Inputs: $title - optional title for the
head -> skip the generation
body -> skip all generation
+ no_inline_link -> if true and in remote mode, don't show the
+ 'Switch To Inline Menu' link
+
=back
=cut
@@ -3486,7 +3494,7 @@ sub start_page {
$args->{'only_body'}, $args->{'domain'},
$args->{'force_register'}, $args->{'body_title'},
$args->{'no_nav_bar'}, $args->{'bgcolor'},
- $args->{'no_title'});
+ $args->{'no_title'}, $args->{'no_inline_link'});
}
}