Annotation of loncom/interface/lonremote.pm, revision 1.31.4.1
1.1 www 1: # The LearningOnline Network
2: # User Authentication Module
3: #
1.31.4.1! raeburn 4: # $Id: lonremote.pm,v 1.31 2009/05/27 16:01:05 bisitz 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.4.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>'.(' 'x3).'</td>'.
1.31.4.1! raeburn 90: '<td align="right">'.
! 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>
![[BACK]](/icons/back.gif){kind=icon}
Return to lonremote.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface