--- loncom/interface/Attic/lonremote.pm 2009/03/29 22:14:12 1.30 +++ loncom/interface/Attic/lonremote.pm 2009/10/01 23:14:11 1.31.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.31.4.1 2009/10/01 23:14:11 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='

' + .&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.') + .'

'; $r->print(<'.&mt('You may have either closed the Remote Control window, or it was blocked by a pop-up window filter in your browser.').'
'."\n". &mt('To use the Remote Control, disable the filter for this site, and re-launch the Remote Control.').'

'."\n". '
'.&mt('Actions').''."\n". - ''. - '
'. - 'Launch Remote Control'. + ''. + 'Launch Remote Control'. &mt('Re-launch Remote Control').''.(' 'x3).''. + 'Launch Remote Control'. &mt('Continue without Remote Control').'
'. '
'."\n". '

'.&mt('Assuming no pop-up blocking, the Remote Control can be launched at any time from the [_1]Set User Preferences[_2] page, linked to in the [_3]Main Menu[_2].','','','').'

';