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

[bisitz]

bisitz		Wed May 27 16:01:05 2009 EDT

  Modified files:              
    /loncom/interface	lonremote.pm 
  Log:
  - Added missing breadcrumbs to launch remote control screen
  - Changed start_page headline text to current page title
  - Added info style to launch fail info message
  
  
Index: loncom/interface/lonremote.pm
diff -u loncom/interface/lonremote.pm:1.30 loncom/interface/lonremote.pm:1.31
--- loncom/interface/lonremote.pm:1.30	Sun Mar 29 22:14:12 2009
+++ loncom/interface/lonremote.pm	Wed May 27 16:01:05 2009
@@ -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.31 2009/05/27 16:01:05 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -41,15 +41,21 @@
     &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