[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.4 and 1.6

version 1.4, 2003/04/03 03:08:12 version 1.6, 2003/04/03 16:50:46
Line 60  $startupremote Line 60  $startupremote
 $bodytag  $bodytag
 $setflags  $setflags
 $windowinfo  $windowinfo
   $maincall
 </body>  </body>
 </html>  </html>
 ENDLAUNCH  ENDLAUNCH
Line 70  sub collapseremote { Line 71  sub collapseremote {
 # -------------------------------------------------------- Menu script and info  # -------------------------------------------------------- Menu script and info
     my $bodytag=&Apache::loncommon::bodytag('Collapse Remote Control');      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.'">';
     $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 86  ENDCOLLAPSE Line 89  ENDCOLLAPSE
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['action']);      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                               ['action','url']);
     unless ($ENV{'form.action'}) {      unless ($ENV{'form.action'}) {
  if ($ENV{'environment.remote'} eq 'on') {   if ($ENV{'environment.remote'} eq 'on') {
     $ENV{'form.action'}='collapse';      $ENV{'form.action'}='collapse';
Line 94  sub handler { Line 98  sub handler {
     $ENV{'form.action'}='launch';      $ENV{'form.action'}='launch';
         }          }
     }      }
 # FIXME - testurl  
     my $lowerurl='/adm/roles';      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);
     } else {      } else {
Removed from v.1.4  
changed lines
  Added in v.1.6

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