[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.7 and 1.10

version 1.7, 2003/05/23 21:18:56 version 1.10, 2003/09/22 00:48:32
Line 50  sub launchremote { Line 50  sub launchremote {
     my $startupremote=&Apache::lonmenu::startupremote($lowerurl);      my $startupremote=&Apache::lonmenu::startupremote($lowerurl);
     my $setflags=&Apache::lonmenu::setflags();      my $setflags=&Apache::lonmenu::setflags();
     my $maincall=&Apache::lonmenu::maincall();      my $maincall=&Apache::lonmenu::maincall();
     my $bodytag=&Apache::loncommon::bodytag('Launch Remote Control',undef,' ');      my $bodytag=&Apache::loncommon::bodytag('Launch Remote Control');
     $r->print(<<ENDLAUNCH);      $r->print(<<ENDLAUNCH);
 <html>  <html>
 <head>  <head>
Line 69  ENDLAUNCH Line 69  ENDLAUNCH
 sub collapseremote {  sub collapseremote {
     my ($r,$lowerurl)=@_;      my ($r,$lowerurl)=@_;
 # -------------------------------------------------------- Menu script and info  # -------------------------------------------------------- Menu script and info
     my $bodytag=&Apache::loncommon::bodytag('Collapse Remote Control',undef,      my $bodytag=&Apache::loncommon::bodytag('Collapse Remote Control');
                                             ' ');  
     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.'">';
     $r->print(<<ENDCOLLAPSE);      $r->print(<<ENDCOLLAPSE);
Line 103  sub handler { Line 102  sub handler {
     my $lowerurl=$ENV{'form.url'};      my $lowerurl=$ENV{'form.url'};
     unless ($lowerurl) { $lowerurl='/adm/menu'; }      unless ($lowerurl) { $lowerurl='/adm/menu'; }
   
       &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;
       return OK if $r->header_only;
   
     if ($ENV{'form.action'} eq 'launch') {      if ($ENV{'form.action'} eq 'launch') {
  &launchremote($r,$lowerurl);   &launchremote($r,$lowerurl);
     } else {      } else {
Removed from v.1.7  
changed lines
  Added in v.1.10

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