[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.34.4.1 and 1.35

version 1.34.4.1, 2022/01/16 17:32:44 version 1.35, 2010/03/10 21:25:50
Line 102  ENDCOLLAPSE Line 102  ENDCOLLAPSE
     &Apache::lonnet::appenv({'environment.remote' => 'off'});      &Apache::lonnet::appenv({'environment.remote' => 'off'});
 }  }
   
 sub no_remote_launch {  
     my ($r)=@_;  
     my $brcrum = [{href=>"/adm/preferences",text=>"Set User Preferences"},  
                   {href=>"/adm/remote?url=/adm/preferences&action=launch",text=>"Launch Remote Control"}];  
     my $start_page = &Apache::loncommon::start_page('Remote Control Unavailable','',  
                                                     {'bread_crumbs' => $brcrum,});  
     my $end_page = &Apache::loncommon::end_page();  
     my $message='<p class="LC_info">'  
                .&mt('Launching of the Remote Control menu is unavailable in courses with customized menu collections.')  
                .'</p>';  
     $r->print(<<ENDLAUNCH);  
 $start_page  
 $message  
 $end_page  
 ENDLAUNCH  
     return;  
 }  
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
Line 140  sub handler { Line 122  sub handler {
     return OK if $r->header_only;      return OK if $r->header_only;
   
     if ($env{'form.action'} eq 'launch') {      if ($env{'form.action'} eq 'launch') {
         my $nolaunch;   &launchremote($r,$lowerurl);
         if ($env{'request.course.id'}) {  
             my ($menucoll,$deeplinkmenu,$menuref) = &Apache::loncommon::menucoll_in_effect();  
             if ($menucoll) {  
                 $nolaunch = 1;  
             }  
         }  
         if ($nolaunch) {  
             &no_remote_launch($r);  
         } else {  
     &launchremote($r,$lowerurl);  
         }  
     } else {      } else {
         &collapseremote($r,$lowerurl);          &collapseremote($r,$lowerurl);
     }      }
Removed from v.1.34.4.1  
changed lines
  Added in v.1.35

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