Annotation of loncom/interface/lonremote.pm, revision 1.31.2.2

1.1       www         1: # The LearningOnline Network
                      2: # User Authentication Module
                      3: #
1.31.2.2! raeburn     4: # $Id: lonremote.pm,v 1.31.2.1 2009/10/01 23:04:07 raeburn Exp $
1.1       www         5: #
                      6: # Copyright Michigan State University Board of Trustees
                      7: #
                      8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
                      9: #
                     10: # LON-CAPA is free software; you can redistribute it and/or modify
                     11: # it under the terms of the GNU General Public License as published by
                     12: # the Free Software Foundation; either version 2 of the License, or
                     13: # (at your option) any later version.
                     14: #
                     15: # LON-CAPA is distributed in the hope that it will be useful,
                     16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
                     17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     18: # GNU General Public License for more details.
                     19: #
                     20: # You should have received a copy of the GNU General Public License
                     21: # along with LON-CAPA; if not, write to the Free Software
                     22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                     23: #
                     24: # /home/httpd/html/adm/gpl.txt
                     25: #
                     26: # http://www.lon-capa.org/
                     27: #
1.11      www        28: ###
1.1       www        29: 
                     30: package Apache::lonremote;
                     31: 
                     32: use strict;
                     33: use Apache::Constants qw(:common);
                     34: use Apache::loncommon();
1.18      albertel   35: use Apache::lonnet;
1.1       www        36: use Apache::lonmenu();
1.11      www        37: use Apache::lonlocal;
1.1       www        38: 
                     39: sub launchremote {
1.2       www        40:     my ($r,$lowerurl)=@_;
1.3       www        41:     &Apache::lonnet::put('environment',{'remote' => 'on'});
1.24      raeburn    42:     &Apache::lonnet::appenv({'environment.remote' => 'on'});
1.1       www        43: # -------------------------------------------------------- Menu script and info
1.31      bisitz     44:     my $brcrum = [{href=>"/adm/preferences",text=>"Set User Preferences"},
                     45:                   {href=>"/adm/remote?url=/adm/preferences&action=launch",text=>"Launch Remote Control"}];
1.18      albertel   46:     my $windowinfo=&Apache::lonmenu::open($env{'browser.os'});
1.4       www        47:     my $startupremote=&Apache::lonmenu::startupremote($lowerurl);
1.31      bisitz     48:     my $start_page = &Apache::loncommon::start_page('Launch Remote Control',
                     49:                                                     $startupremote,
                     50:                                                     {'bread_crumbs' => $brcrum,});
1.19      albertel   51:     my $end_page   = &Apache::loncommon::end_page();
1.14      albertel   52:     my $remoteinfo=&Apache::lonmenu::load_remote_msg($lowerurl);
1.4       www        53:     my $setflags=&Apache::lonmenu::setflags();
                     54:     my $maincall=&Apache::lonmenu::maincall();
1.31      bisitz     55:     my $message='<p class="LC_info">'
                     56:                .&mt('Launching of the Remote Control menu will fail if pop-up window filters are active.'
                     57:                    .' To use the Remote Control, disable the filter for this site.')
                     58:                .'</p>';
1.2       www        59:     $r->print(<<ENDLAUNCH);
1.19      albertel   60: $start_page
1.4       www        61: $setflags
                     62: $windowinfo
1.14      albertel   63: $message
                     64: $remoteinfo
1.5       www        65: $maincall
1.19      albertel   66: $end_page
1.2       www        67: ENDLAUNCH
                     68: }
                     69: 
                     70: sub collapseremote {
                     71:     my ($r,$lowerurl)=@_;
                     72: # -------------------------------------------------------- Menu script and info
1.26      raeburn    73:     my $brcrum = [{href=>"/adm/preferences",text=>"Set User Preferences"},
                     74:                   {href=>"/adm/remote?url=/adm/preferences&action=collapse",text=>"Collapse Remote Control"}];
                     75:     my $start_page = 
                     76:         &Apache::loncommon::start_page('Collapse Remote Control',
                     77:                                        undef,
                     78:                                        {'bread_crumbs' => $brcrum,
                     79:                                         'no_inline_link' => 1,});
1.20      albertel   80:     my $end_page  =  &Apache::loncommon::end_page();
1.4       www        81:     my $windowinfo=&Apache::lonmenu::close();
1.28      bisitz     82: #    my $switch='<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />';
1.30      raeburn    83:     my $message='<div class="LC_warning"><b>'.&mt('The external menu (Remote Control) has been disabled, and you will be working with the smaller inline menu.').'</b></div>'."\n".
                     84:                 '<p>'.&mt('You may have either closed the Remote Control window, or it was blocked by a pop-up window filter in your browser.').'<br />'."\n".
                     85:                 &mt('To use the Remote Control, disable the filter for this site, and re-launch the Remote Control.').'</p>'."\n".
                     86:                 '<table><tr><td><fieldset><legend><b>'.&mt('Actions').'</b></legend><table><tr>'."\n".
1.31.2.1  raeburn    87:                 '<td align="left">'.
                     88:                 '<a class="LC_menubuttons_link" href="/adm/remote?action=launch"><img alt="Launch Remote Control" src="/res/adm/pages/remotecontrol.png" border="0" />'.
1.30      raeburn    89:                 &mt('Re-launch Remote Control').'</a></td><td>'.('&nbsp;'x3).'</td>'.
1.31.2.1  raeburn    90:                 '<td align="right">'.
1.31.2.2! raeburn    91:                 '<a class="LC_menubuttons_link" href="'.$lowerurl.'"><img alt="Launch Remote Control" src="/res/adm/pages/forw.png" border="0" />'.
1.30      raeburn    92:                 &mt('Continue without Remote Control').'</a></td></tr></table>'.
                     93:                 '</fieldset></td></tr></table>'."\n".
                     94:                 '<p>'.&mt('Assuming no pop-up blocking, the Remote Control can be launched at any time from the [_1]Set User Preferences[_2] page, linked to in the [_3]Main Menu[_2].','<a href="/adm/preferences">','</a>','<a href="/adm/menu">').'</span></p>';
1.2       www        95:     $r->print(<<ENDCOLLAPSE);
1.19      albertel   96: $start_page
1.4       www        97: $windowinfo
1.12      albertel   98: $message
1.19      albertel   99: $end_page
1.2       www       100: ENDCOLLAPSE
1.30      raeburn   101:     &Apache::lonnet::put('environment',{'remote' => 'off'});
                    102:     &Apache::lonnet::appenv({'environment.remote' => 'off'});
1.1       www       103: }
                    104: 
                    105: sub handler {
                    106:     my $r = shift;
1.5       www       107:     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                    108:                                             ['action','url']);
1.18      albertel  109:     unless ($env{'form.action'}) {
                    110: 	if ($env{'environment.remote'} ne 'off') {
                    111: 	    $env{'form.action'}='collapse';
1.2       www       112:         } else {
1.18      albertel  113: 	    $env{'form.action'}='launch';
1.2       www       114:         }
                    115:     }
1.5       www       116: 
1.18      albertel  117:     my $lowerurl=$env{'form.url'};
1.6       www       118:     unless ($lowerurl) { $lowerurl='/adm/menu'; }
1.9       albertel  119: 
1.10      www       120:     &Apache::loncommon::content_type($r,'text/html');
1.9       albertel  121:     $r->send_http_header;
                    122:     return OK if $r->header_only;
1.5       www       123: 
1.18      albertel  124:     if ($env{'form.action'} eq 'launch') {
1.4       www       125: 	&launchremote($r,$lowerurl);
1.2       www       126:     } else {
1.4       www       127:         &collapseremote($r,$lowerurl);
1.2       www       128:     }
1.1       www       129:     return OK;
                    130: }
                    131: 
                    132: 1;
                    133: __END__
                    134: 
                    135: 

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