Annotation of loncom/html/res/adm/pages/bookmarkmenu/admbookmarks.pm, revision 1.34
1.28 albertel 1: # The LearningOnline Network with CAPA
2: # The bookmarks handler
1.1 tyszkabe 3: #
1.34 ! albertel 4: # $Id: admbookmarks.pm,v 1.33 2006/04/11 15:39:31 albertel Exp $
1.28 albertel 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/
1.1 tyszkabe 27: #
1.2 tyszkabe 28: # 08/25/00 Ben Tyszka
1.16 tyszkabe 29: #
1.1 tyszkabe 30: #
1.2 tyszkabe 31: #
32: ##################
1.1 tyszkabe 33:
1.5 tyszkabe 34: package Apache::admbookmarks;
1.1 tyszkabe 35:
36: use strict;
1.2 tyszkabe 37: use Apache::Constants qw(:common);
1.30 albertel 38: use Apache::lonnet;
1.31 albertel 39: use Apache::loncommon();
1.1 tyszkabe 40:
1.4 tyszkabe 41: # --------------------------------------------------------------Put bookmarks
1.1 tyszkabe 42:
1.4 tyszkabe 43: sub write_bookmarks {
1.32 albertel 44: my ($marks) = @_;
45: &Apache::lonnet::put("bookmarks",{'bookmarks' => $marks});
1.2 tyszkabe 46: return;
1.1 tyszkabe 47: }
48:
1.4 tyszkabe 49: # --------------------------------------------------------------Get bookmarks
1.2 tyszkabe 50:
1.4 tyszkabe 51: sub get_bookmarks {
1.32 albertel 52: my %bookmark=&Apache::lonnet::get('bookmarks',['bookmarks']);
1.26 albertel 53: my ($errormsg) = $bookmark{'bookmarks'};
54: if ($errormsg =~ /^error/) { %bookmark = ('bookmarks' => ''); }
55:
1.5 tyszkabe 56: return %bookmark;
1.2 tyszkabe 57: }
58:
1.4 tyszkabe 59: # ---------------------------------------------------Construct bookmark editor
1.2 tyszkabe 60:
61: sub construct_editor {
1.32 albertel 62: my ($bookmarks) = @_;
1.31 albertel 63: my $js = <<ENDJS;
1.34 ! albertel 64: <script src="/res/adm/pages/bookmarkmenu/bookmarklib.js" type="text/javascript"></script>
1.16 tyszkabe 65:
1.34 ! albertel 66: <script type="text/javascript">
1.16 tyszkabe 67: function initialize() {
68: window.tree = new newTree();
1.34 ! albertel 69: //-----------------------------------------------------------------------------
1.9 tyszkabe 70: // The FOLLOWING data is supplied by the Perl Module
1.34 ! albertel 71: //-----------------------------------------------------------------------------
1.9 tyszkabe 72: $bookmarks
1.34 ! albertel 73: //-----------------------------------------------------------------------------
1.9 tyszkabe 74: // The PRECEDING data is supplied by the Perl Module
1.34 ! albertel 75: //-----------------------------------------------------------------------------
1.16 tyszkabe 76: window.tree.redraw();
1.4 tyszkabe 77: }
1.8 tyszkabe 78: </script>
1.31 albertel 79: ENDJS
80:
81: my $html = &Apache::lonxml::xmlbegin();
82: my $head = &Apache::loncommon::head('Bookmark Tree Viewer/Editor',$js);
83:
84: return(<<END_HTML)
85: $html
86: $head
1.34 ! albertel 87: <frameset rows="25, *, 40, 25, 1" topmargin="0" leftmargin="0" marginheight="0"
! 88: marginwidth="0" frameborder="0" border="0" framespacing="0"
! 89: onload="javascript:buildBookmarkMenu();initialize();">
! 90: <frameset cols="25, *, 25" frameborder="0" borders="0" framespacing="0">
! 91: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''">
! 92: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''">
! 93: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''">
! 94: </frameset>
! 95: <frameset cols="25, *, 25" frameborder="0" borders="0" framespacing="0">
! 96: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''">
! 97: <frame src="/res/adm/pages/bookmarkmenu/blank.html" marginwidth="0"
! 98: marginheight="0" scrolling="yes">
! 99: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''">
! 100: </frameset>
! 101: <frameset cols="25, *, 25" frameborder="0" borders="0" framespacing="0">
! 102: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''">
! 103: <frame src="/res/adm/pages/bookmarkmenu/bookmarkmenu_toolbar.html"
! 104: marginwidth="0" marginheight="0" scrolling="no">
! 105: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''">
! 106: </frameset>
! 107: <frameset cols="25, *, 25" frameborder="0" borders="0" framespacing="0">
! 108: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''">
! 109: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''">
! 110: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''">
! 111: </frameset>
! 112: <frame name="closechildren" src="/res/adm/pages/bookmarkmenu/closechildren.html" noresize noscroll>
! 113: </frameset>
1.4 tyszkabe 114: </html>
1.2 tyszkabe 115: END_HTML
1.1 tyszkabe 116: }
117:
1.16 tyszkabe 118: # ---------------------------------------------------------------Construct Error window
1.5 tyszkabe 119:
120: sub construct_error {
1.32 albertel 121: my ($error_message) = @_;
1.31 albertel 122: my $start_page =
123: &Apache::loncommon::start_page('Bookmark Tree Viewer/Editor',undef,
124: {'only_body' => 1,
125: 'bgcolor' => '#BBBBBB',});
126:
127: my $end_page = &Apache::loncommon::end_page();
128:
129: return(<<END_ERROR)
130: $start_page
1.5 tyszkabe 131: <table bgcolor="#FFFFFF" width="100%" height="90%" align="center">
132: <td>
133: <i>
134: $error_message
135: </i>
136: </td>
137: </table>
138: <center>
139: <form>
1.34 ! albertel 140: <input type="button" name="close" value="close window" onClick="javascript:window.close();" />
1.5 tyszkabe 141: </form>
142: </center>
1.31 albertel 143: $end_page
1.5 tyszkabe 144: END_ERROR
145: }
146:
1.16 tyszkabe 147: # --------------------------------------------Construct toolbar (after saving)
1.6 tyszkabe 148:
149: sub construct_toolbar {
1.31 albertel 150: my $start_page =
151: &Apache::loncommon::start_page('Bookmark Tree Viewer/Editor',undef,
152: {'only_body' => 1,
153: 'bgcolor' => '#FFFFFF',});
154:
155: my $end_page = &Apache::loncommon::end_page();
156:
1.32 albertel 157: return(<<END_TOOLBAR)
1.31 albertel 158: $start_page
1.7 tyszkabe 159: <div align="bottom">
160: <center>
161: Bookmarks saved.
1.20 tyszkabe 162: [ <a href="/res/adm/pages/bookmarkmenu/bookmarkmenu_toolbar.html" target="_self">Continue</a> ]
1.7 tyszkabe 163: </center>
164: </div>
1.31 albertel 165: $end_page
1.6 tyszkabe 166: END_TOOLBAR
167: }
168:
1.21 tyszkabe 169: # ---------------------------------------------Add bookmark from remote control
170:
171: sub add_bookmark {
1.32 albertel 172: my ($location, $title, $bookmarks) = @_;
1.33 albertel 173: my $start_page =
174: &Apache::loncommon::start_page('Bookmark Tree Viewer/Editor',undef,
175: {'only_body' => 1,
176: 'bgcolor' => '#FFFFFF',});
177:
178: my $end_page = &Apache::loncommon::end_page();
179:
1.23 harris41 180: $bookmarks .= "window.tree.bookmarks.addLink(\"$title\",\"$location\");\n";
1.22 tyszkabe 181: # $marks{'bookmarks'} += qq/\nwindow.tree.bookmarks.addlink("$title","$location");\n/;
1.32 albertel 182: &write_bookmarks($bookmarks);
1.34 ! albertel 183: my $page="$start_page $bookmarks<p>Bookmarks successfully saved</p><script type=\"text/javascript\">window.close()</script> $end_page";
1.22 tyszkabe 184: return($page);
1.21 tyszkabe 185: }
186:
1.16 tyszkabe 187: # ----------------------------------------------------------------Main Handler
1.1 tyszkabe 188:
189: sub handler {
1.32 albertel 190: my ($r) = @_;
191: my %marks;
192: my $save_mark;
193: my $page;
194: $r->content_type('text/html');
195: $r->send_http_header;
196: if (defined($env{'form.hiddenbookmarks'})) {
197: $marks{'bookmarks'}=$env{'form.hiddenbookmarks'};
198: &write_bookmarks($marks{'bookmarks'});
199: $page=&construct_toolbar();
200: } else {
201: %marks=&get_bookmarks();
202: if (exists($marks{"con_lost"})) {
203: #$page = construct_editor($marks{'bookmarks'}); # Delete this line and uncomment next
204: # in order to re-enable connection detection
205: $page=&construct_error("Connection broken with home server. Please contact your system administrator");
206: } else {
207: if (defined($env{'form.address'})) {
208: $page=&add_bookmark($env{'form.address'},$env{'form.title'},$marks{'bookmarks'});
209: } else {
210: if ($marks{'bookmarks'} eq "") {
211: $marks{'bookmarks'}=&defaultmarks();
212: }
213: $page = &construct_editor($marks{'bookmarks'});
214: }
215: }
216: }
217: $r->print($page);
218: return OK;
1.1 tyszkabe 219: }
1.9 tyszkabe 220:
221: ####################################
222: #
1.16 tyszkabe 223: # The following was used for debugging when the bookmarks get corrupted
224: # ben 10/12/2000
225: sub recovermarks {
226: return(<<END_MARKS);
227: window.tree.bookmarks.addFolder("Default Bookmarks",true);
1.29 www 228: window.tree.bookmarks.p[0].addFolder("LON-CAPA",true);
229: window.tree.bookmarks.p[0].p[0].addLink("Main","http://www.lon-capa.org/");
230: window.tree.bookmarks.p[0].p[0].addLink("Help","http://help.lon-capa.org/");
231: window.tree.bookmarks.p[0].p[0].addLink("Bugs","http://bugs.lon-capa.org/");
1.16 tyszkabe 232: END_MARKS
233: }
234: #
235: #
236: ##########################################
237:
238: ##########################################
239: #
240: # Here is a listing of default bookmarks. It may be used to replace 'recover'
241: # eventually, but for now these will load after all bookmarks have been deleted.
1.10 tyszkabe 242: # ben 10/12/2000
243: sub defaultmarks {
244: return(<<END_MARKS);
1.16 tyszkabe 245: window.tree.bookmarks.addFolder("Default Bookmarks",true);
1.29 www 246: window.tree.bookmarks.p[0].addFolder("LON-CAPA",true);
247: window.tree.bookmarks.p[0].p[0].addLink("Main","http://www.lon-capa.org/");
248: window.tree.bookmarks.p[0].p[0].addLink("Help","http://help.lon-capa.org/");
249: window.tree.bookmarks.p[0].p[0].addLink("Bugs","http://bugs.lon-capa.org/");
1.10 tyszkabe 250: END_MARKS
251: }
1.1 tyszkabe 252:
253: 1;
254: __END__
1.8 tyszkabe 255:
256:
257:
258:
259:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>