[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.5 and 1.7

version 1.5, 2003/04/03 14:44:01 version 1.7, 2003/05/23 21:18:56
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');      my $bodytag=&Apache::loncommon::bodytag('Launch Remote Control',undef,' ');
     $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');      my $bodytag=&Apache::loncommon::bodytag('Collapse Remote Control',undef,
                                               ' ');
     my $windowinfo=&Apache::lonmenu::close();      my $windowinfo=&Apache::lonmenu::close();
       my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'">';
     $r->print(<<ENDCOLLAPSE);      $r->print(<<ENDCOLLAPSE);
 <html>  <html>
 <head>  <head>
 <title>The LearningOnline Network with CAPA</title>  <title>The LearningOnline Network with CAPA</title>
   $switch
 </head>  </head>
 $bodytag  $bodytag
 $windowinfo  $windowinfo
Line 98  sub handler { Line 101  sub handler {
     }      }
   
     my $lowerurl=$ENV{'form.url'};      my $lowerurl=$ENV{'form.url'};
       unless ($lowerurl) { $lowerurl='/adm/menu'; }
   
     if ($ENV{'form.action'} eq 'launch') {      if ($ENV{'form.action'} eq 'launch') {
  &launchremote($r,$lowerurl);   &launchremote($r,$lowerurl);
Removed from v.1.5  
changed lines
  Added in v.1.7

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