[BACK]Return to lonremote.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/lonremote.pm between versions 1.30 and 1.31

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
Removed from v.1.30  
changed lines
  Added in v.1.31

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>