[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.33 and 1.34.4.1

version 1.33, 2009/10/01 22:41:55 version 1.34.4.1, 2022/01/16 17:32:44
Line 87  sub collapseremote { Line 87  sub collapseremote {
                 '<td class="LC_menubuttons_text" align="left">'.                  '<td class="LC_menubuttons_text" align="left">'.
                 '<a class="LC_menubuttons_link" href="/adm/remote?action=launch"><img alt="Launch Remote Control" src="/res/adm/pages/remotecontrol.png" class="LC_noBorder" />'.                  '<a class="LC_menubuttons_link" href="/adm/remote?action=launch"><img alt="Launch Remote Control" src="/res/adm/pages/remotecontrol.png" class="LC_noBorder" />'.
                 &mt('Re-launch Remote Control').'</a></td><td>'.('&nbsp;'x3).'</td>'.                  &mt('Re-launch Remote Control').'</a></td><td>'.('&nbsp;'x3).'</td>'.
                 '<td class="LC_menubuttons_link" align="right">'.                  '<td class="LC_menubuttons_text" align="right">'.
                 '<a class="LC_menubuttons_link" href="'.$lowerurl.'"><img alt="Launch Remote Control" src="/res/adm/pages/forw.png" class="LC_noBorder" />'.                  '<a class="LC_menubuttons_link" href="'.$lowerurl.'"><img alt="Launch Remote Control" src="/res/adm/pages/forw.png" class="LC_noBorder" />'.
                 &mt('Continue without Remote Control').'</a></td></tr></table>'.                  &mt('Continue without Remote Control').'</a></td></tr></table>'.
                 '</fieldset></td></tr></table>'."\n".                  '</fieldset></td></tr></table>'."\n".
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 122  sub handler { Line 140  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') {
  &launchremote($r,$lowerurl);          my $nolaunch;
           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.33  
changed lines
  Added in v.1.34.4.1

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