version 1.30, 2009/03/29 22:14:12
|
version 1.31, 2009/05/27 16:01:05
|
Line 41 sub launchremote {
|
Line 41 sub launchremote {
|
&Apache::lonnet::put('environment',{'remote' => 'on'}); |
&Apache::lonnet::put('environment',{'remote' => 'on'}); |
&Apache::lonnet::appenv({'environment.remote' => 'on'}); |
&Apache::lonnet::appenv({'environment.remote' => 'on'}); |
# -------------------------------------------------------- Menu script and info |
# -------------------------------------------------------- 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 $windowinfo=&Apache::lonmenu::open($env{'browser.os'}); |
my $startupremote=&Apache::lonmenu::startupremote($lowerurl); |
my $startupremote=&Apache::lonmenu::startupremote($lowerurl); |
my $start_page = &Apache::loncommon::start_page('Page Display Settings', |
my $start_page = &Apache::loncommon::start_page('Launch Remote Control', |
$startupremote); |
$startupremote, |
|
{'bread_crumbs' => $brcrum,}); |
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl); |
my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl); |
my $setflags=&Apache::lonmenu::setflags(); |
my $setflags=&Apache::lonmenu::setflags(); |
my $maincall=&Apache::lonmenu::maincall(); |
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); |
$r->print(<<ENDLAUNCH); |
$start_page |
$start_page |
$setflags |
$setflags |