--- loncom/interface/Attic/lonremote.pm	2009/03/29 22:14:12	1.30
+++ loncom/interface/Attic/lonremote.pm	2022/01/16 17:32:44	1.34.4.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonremote.pm,v 1.30 2009/03/29 22:14:12 raeburn Exp $
+# $Id: lonremote.pm,v 1.34.4.1 2022/01/16 17:32:44 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -41,15 +41,21 @@ sub launchremote {
     &Apache::lonnet::put('environment',{'remote' => 'on'});
     &Apache::lonnet::appenv({'environment.remote' => 'on'});
 # -------------------------------------------------------- Menu script and info
+    my $brcrum = [{href=>"/adm/preferences",text=>"Set User Preferences"},
+                  {href=>"/adm/remote?url=/adm/preferences&action=launch",text=>"Launch Remote Control"}];
     my $windowinfo=&Apache::lonmenu::open($env{'browser.os'});
     my $startupremote=&Apache::lonmenu::startupremote($lowerurl);
-    my $start_page = &Apache::loncommon::start_page('Page Display Settings',
-						    $startupremote);
+    my $start_page = &Apache::loncommon::start_page('Launch Remote Control',
+                                                    $startupremote,
+                                                    {'bread_crumbs' => $brcrum,});
     my $end_page   = &Apache::loncommon::end_page();
     my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl);
     my $setflags=&Apache::lonmenu::setflags();
     my $maincall=&Apache::lonmenu::maincall();
-    my $message=&mt("Launching of the Remote Control menu will fail if pop-up window filters are active. To use the Remote Control, disable the filter for this site.");
+    my $message='<p class="LC_info">'
+               .&mt('Launching of the Remote Control menu will fail if pop-up window filters are active.'
+                   .' To use the Remote Control, disable the filter for this site.')
+               .'</p>';
     $r->print(<<ENDLAUNCH);
 $start_page
 $setflags
@@ -77,11 +83,11 @@ sub collapseremote {
     my $message='<div class="LC_warning"><b>'.&mt('The external menu (Remote Control) has been disabled, and you will be working with the smaller inline menu.').'</b></div>'."\n".
                 '<p>'.&mt('You may have either closed the Remote Control window, or it was blocked by a pop-up window filter in your browser.').'<br />'."\n".
                 &mt('To use the Remote Control, disable the filter for this site, and re-launch the Remote Control.').'</p>'."\n".
-                '<table><tr><td><fieldset><legend><b>'.&mt('Actions').'</b></legend><table><tr>'."\n".
+                '<table><tr><td><fieldset><legend>'.&mt('Actions').'</legend><table><tr>'."\n".
                 '<td class="LC_menubuttons_text" align="left">'.
-                '<a class="LC_menubuttons_link" href="/adm/remote?action=launch"><img alt="Launch Remote Control" src="/res/adm/pages/network-wireless.png" class="LC_noBorder" />'.
+                '<a class="LC_menubuttons_link" href="/adm/remote?action=launch"><img alt="Launch Remote Control" src="/res/adm/pages/remotecontrol.png" class="LC_noBorder" />'.
                 &mt('Re-launch Remote Control').'</a></td><td>'.('&nbsp;'x3).'</td>'.
-                '<td class="LC_menubuttons_link" align="right">'.
+                '<td class="LC_menubuttons_text" align="right">'.
                 '<a class="LC_menubuttons_link" href="'.$lowerurl.'"><img alt="Launch Remote Control" src="/res/adm/pages/forw.png" class="LC_noBorder" />'.
                 &mt('Continue without Remote Control').'</a></td></tr></table>'.
                 '</fieldset></td></tr></table>'."\n".
@@ -96,6 +102,24 @@ ENDCOLLAPSE
     &Apache::lonnet::appenv({'environment.remote' => 'off'});
 }
 
+sub no_remote_launch {
+    my ($r)=@_;
+    my $brcrum = [{href=>"/adm/preferences",text=>"Set User Preferences"},
+                  {href=>"/adm/remote?url=/adm/preferences&action=launch",text=>"Launch Remote Control"}];
+    my $start_page = &Apache::loncommon::start_page('Remote Control Unavailable','',
+                                                    {'bread_crumbs' => $brcrum,});
+    my $end_page = &Apache::loncommon::end_page();
+    my $message='<p class="LC_info">'
+               .&mt('Launching of the Remote Control menu is unavailable in courses with customized menu collections.')
+               .'</p>';
+    $r->print(<<ENDLAUNCH);
+$start_page
+$message
+$end_page
+ENDLAUNCH
+    return;
+}
+
 sub handler {
     my $r = shift;
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
@@ -116,7 +140,18 @@ sub handler {
     return OK if $r->header_only;
 
     if ($env{'form.action'} eq 'launch') {
-	&launchremote($r,$lowerurl);
+        my $nolaunch;
+        if ($env{'request.course.id'}) {
+            my ($menucoll,$deeplinkmenu,$menuref) = &Apache::loncommon::menucoll_in_effect();
+            if ($menucoll) {
+                $nolaunch = 1;
+            }
+        }
+        if ($nolaunch) {
+            &no_remote_launch($r);
+        } else {
+	    &launchremote($r,$lowerurl);
+        }
     } else {
         &collapseremote($r,$lowerurl);
     }