[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.23 and 1.27

version 1.23, 2008/01/20 01:12:56 version 1.27, 2009/02/26 16:17:30
Line 39  use Apache::lonlocal; Line 39  use Apache::lonlocal;
 sub launchremote {  sub launchremote {
     my ($r,$lowerurl)=@_;      my ($r,$lowerurl)=@_;
     &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 $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('Remote Control',      my $start_page = &Apache::loncommon::start_page('Page Display Settings',
     $startupremote);      $startupremote);
     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);
Line 64  ENDLAUNCH Line 64  ENDLAUNCH
 sub collapseremote {  sub collapseremote {
     my ($r,$lowerurl)=@_;      my ($r,$lowerurl)=@_;
 # -------------------------------------------------------- Menu script and info  # -------------------------------------------------------- Menu script and info
     my $start_page = &Apache::loncommon::start_page('Collapse Remote Control',      my $brcrum = [{href=>"/adm/preferences",text=>"Set User Preferences"},
     undef,                    {href=>"/adm/remote?url=/adm/preferences&action=collapse",text=>"Collapse Remote Control"}];
     {'no_inline_link' => 1,});      my $start_page = 
           &Apache::loncommon::start_page('Collapse Remote Control',
                                          undef,
                                          {'bread_crumbs' => $brcrum,
                                           'no_inline_link' => 1,});
     my $end_page  =  &Apache::loncommon::end_page();      my $end_page  =  &Apache::loncommon::end_page();
     my $windowinfo=&Apache::lonmenu::close();      my $windowinfo=&Apache::lonmenu::close();
 #    my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'">';  #    my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'">';
Line 82  $message Line 86  $message
 $end_page  $end_page
 ENDCOLLAPSE  ENDCOLLAPSE
    &Apache::lonnet::put('environment',{'remote' => 'off'});     &Apache::lonnet::put('environment',{'remote' => 'off'});
    &Apache::lonnet::appenv('environment.remote' => 'off');     &Apache::lonnet::appenv({'environment.remote' => 'off'});
 }  }
   
 sub handler {  sub handler {
Removed from v.1.23  
changed lines
  Added in v.1.27

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