[LON-CAPA-cvs] cvs: loncom(version_2_11_X) /interface loncommon.pm
raeburn
raeburn at source.lon-capa.org
Sun Dec 29 20:31:56 EST 2013
raeburn Mon Dec 30 01:31:56 2013 EDT
Modified files: (Branch: version_2_11_X)
/loncom/interface loncommon.pm
Log:
- For 2.11
- Provide Remote Contol users with access to help menu (will open in new
window).
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1075.2.59 loncom/interface/loncommon.pm:1.1075.2.60
--- loncom/interface/loncommon.pm:1.1075.2.59 Fri Dec 27 15:50:34 2013
+++ loncom/interface/loncommon.pm Mon Dec 30 01:31:55 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.1075.2.59 2013/12/27 15:50:34 raeburn Exp $
+# $Id: loncommon.pm,v 1.1075.2.60 2013/12/30 01:31:55 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1352,8 +1352,10 @@
sub top_nav_help {
my ($text) = @_;
$text = &mt($text);
- my $stay_on_page = 1;
-
+ my $stay_on_page;
+ unless ($env{'environment.remote'} eq 'on') {
+ $stay_on_page = 1;
+ }
my $link = ($stay_on_page) ? "javascript:helpMenu('display')"
: "javascript:helpMenu('open')";
my $banner_link = &update_help_link(undef,undef,undef,undef,$stay_on_page);
@@ -5196,6 +5198,9 @@
}
my $upperleft='<img src="'.$imgsrc.'" alt="'.$function.'" />';
+ my $help=($no_inline_link?''
+ :&Apache::loncommon::top_nav_help('Help'));
+
# Explicit link to get inline menu
my $menu= ($no_inline_link?''
:'<a href="/adm/remote?action=collapse" target="_top">'.&mt('Switch to Inline Menu Mode').'</a>');
@@ -5213,6 +5218,7 @@
unless ($env{'form.inhibitmenu'}) {
$bodytag .= qq|<div id="LC_nav_bar">$name $role</div>
<ol class="LC_primary_menu LC_floatright LC_right">
+ <li>$help</li>
<li>$menu</li>
</ol><div id="LC_realm"> $realm $dc_info</div>|;
}
More information about the LON-CAPA-cvs
mailing list