File:
[LON-CAPA] /
loncom /
html /
res /
adm /
pages /
bookmarkmenu /
admbookmarks.pm
Revision
1.37:
download - view:
text,
annotated -
select for diffs
Wed Apr 12 09:45:50 2006 UTC (18 years, 3 months ago) by
foxr
Branches:
MAIN
CVS tags:
version_2_8_X,
version_2_8_2,
version_2_8_1,
version_2_8_0,
version_2_7_X,
version_2_7_99_1,
version_2_7_99_0,
version_2_7_1,
version_2_7_0,
version_2_6_X,
version_2_6_99_1,
version_2_6_99_0,
version_2_6_3,
version_2_6_2,
version_2_6_1,
version_2_6_0,
version_2_5_X,
version_2_5_99_1,
version_2_5_99_0,
version_2_5_2,
version_2_5_1,
version_2_5_0,
version_2_4_X,
version_2_4_99_0,
version_2_4_2,
version_2_4_1,
version_2_4_0,
version_2_3_X,
version_2_3_99_0,
version_2_3_2,
version_2_3_1,
version_2_3_0,
version_2_2_X,
version_2_2_99_1,
version_2_2_99_0,
version_2_2_2,
version_2_2_1,
version_2_2_0,
version_2_1_99_3,
version_2_1_99_2,
version_2_1_99_1,
version_2_1_99_0,
HEAD,
GCI_1
Remove accidental typo.
1: # The LearningOnline Network with CAPA
2: # The bookmarks handler
3: #
4: # $Id: admbookmarks.pm,v 1.37 2006/04/12 09:45:50 foxr Exp $
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: #
28: # 08/25/00 Ben Tyszka
29: #
30: #
31: #
32: ##################
33:
34: package Apache::admbookmarks;
35:
36: use strict;
37: use Apache::Constants qw(:common);
38: use Apache::lonnet;
39: use Apache::loncommon();
40: use Apache::lonlocal;
41:
42: # --------------------------------------------------------------Put bookmarks
43:
44: sub write_bookmarks {
45: my ($marks) = @_;
46: &Apache::lonnet::put("bookmarks",{'bookmarks' => $marks});
47: return;
48: }
49:
50: # --------------------------------------------------------------Get bookmarks
51:
52: sub get_bookmarks {
53: my %bookmark=&Apache::lonnet::get('bookmarks',['bookmarks']);
54: my ($errormsg) = $bookmark{'bookmarks'};
55: if ($errormsg =~ /^error/) { %bookmark = ('bookmarks' => ''); }
56:
57: return %bookmark;
58: }
59:
60: # ---------------------------------------------------Construct bookmark editor
61:
62: sub construct_editor {
63: my ($bookmarks) = @_;
64: my $js = <<ENDJS;
65: <script src="/res/adm/pages/bookmarkmenu/bookmarklib.js" type="text/javascript"></script>
66:
67: <script type="text/javascript">
68: function initialize() {
69: window.tree = new newTree();
70: //-----------------------------------------------------------------------------
71: // The FOLLOWING data is supplied by the Perl Module
72: //-----------------------------------------------------------------------------
73: $bookmarks
74: //-----------------------------------------------------------------------------
75: // The PRECEDING data is supplied by the Perl Module
76: //-----------------------------------------------------------------------------
77: window.tree.redraw();
78: }
79: </script>
80: ENDJS
81:
82: my $start_page =
83: &Apache::loncommon::start_page('Bookmark Tree Viewer/Editor',$js,
84: {'frameset' => 1,
85: 'add_entries' => {
86: 'rows' => "25,*,40,25,1",
87: 'topmargin' => "0",
88: 'leftmargin' => "0",
89: 'marginheight' => "0",
90: 'marginwidth' => "0",
91: 'frameborder' => "0",
92: 'border' => "0",
93: 'framespacing' => "0",
94: 'onload' => "javascript:buildBookmarkMenu();initialize();"}});
95: my $end_page =
96: &Apache::loncommon::end_page({'frameset' => 1,});
97:
98: return(<<END_HTML)
99: $start_page
100: <frameset cols="25, *, 25" frameborder="0" borders="0" framespacing="0">
101: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''" />
102: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''" />
103: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''" />
104: </frameset>
105: <frameset cols="25, *, 25" frameborder="0" borders="0" framespacing="0">
106: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''" />
107: <frame src="/res/adm/pages/bookmarkmenu/blank.html" marginwidth="0"
108: marginheight="0" scrolling="yes" />
109: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''" />
110: </frameset>
111: <frameset cols="25, *, 25" frameborder="0" borders="0" framespacing="0">
112: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''" />
113: <frame src="/res/adm/pages/bookmarkmenu/bookmarkmenu_toolbar.html"
114: marginwidth="0" marginheight="0" scrolling="no" />
115: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''" />
116: </frameset>
117: <frameset cols="25, *, 25" frameborder="0" borders="0" framespacing="0">
118: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''" />
119: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''" />
120: <frame marginwidth="0" marginheight="0" scrolling="no" src="javascript:''" />
121: </frameset>
122: <frame name="closechildren" noresize="noresize" noscroll="noscroll"
123: src="/res/adm/pages/bookmarkmenu/closechildren.html" />
124: $end_page
125: END_HTML
126: }
127:
128: # ---------------------------------------------------------------Construct Error window
129:
130: sub construct_error {
131: my ($error_message) = @_;
132: my $start_page =
133: &Apache::loncommon::start_page('Bookmark Tree Viewer/Editor',undef,
134: {'only_body' => 1,
135: 'bgcolor' => '#BBBBBB',});
136:
137: my $end_page = &Apache::loncommon::end_page();
138:
139: my $close = &mt('Close Window');
140:
141: return(<<END_ERROR)
142: $start_page
143: <table bgcolor="#FFFFFF" width="100%" height="90%" align="center">
144: <td>
145: <i>
146: $error_message
147: </i>
148: </td>
149: </table>
150: <center>
151: <form>
152: <input type="button" name="close" value="$close"
153: onclick="javascript:window.close();" />
154: </form>
155: </center>
156: $end_page
157: END_ERROR
158: }
159:
160: # --------------------------------------------Construct toolbar (after saving)
161:
162: sub construct_toolbar {
163: my $start_page =
164: &Apache::loncommon::start_page('Bookmark Tree Viewer/Editor',undef,
165: {'only_body' => 1,
166: 'bgcolor' => '#FFFFFF',});
167:
168: my $end_page = &Apache::loncommon::end_page();
169:
170: my $msg = &mt('Bookmarks saved. ([_1]Continue[_2])',
171: '<a href="/res/adm/pages/bookmarkmenu/bookmarkmenu_toolbar.html" target="_self">',
172: '</a>');
173:
174: return(<<END_TOOLBAR)
175: $start_page
176: <div align="bottom">
177: <center>
178: $msg
179: </center>
180: </div>
181: $end_page
182: END_TOOLBAR
183: }
184:
185: # ---------------------------------------------Add bookmark from remote control
186:
187: sub add_bookmark {
188: my ($location, $title, $bookmarks) = @_;
189: my $start_page =
190: &Apache::loncommon::start_page('Bookmark Tree Viewer/Editor',undef,
191: {'only_body' => 1,
192: 'bgcolor' => '#FFFFFF',});
193:
194: my $end_page = &Apache::loncommon::end_page();
195:
196: $bookmarks .= "window.tree.bookmarks.addLink(\"$title\",\"$location\");\n";
197: # $marks{'bookmarks'} += qq/\nwindow.tree.bookmarks.addlink("$title","$location");\n/;
198: &write_bookmarks($bookmarks);
199: my $page="$start_page $bookmarks<p>Bookmarks successfully saved</p><script type=\"text/javascript\">window.close()</script> $end_page";
200: return($page);
201: }
202:
203: # ----------------------------------------------------------------Main Handler
204:
205: sub handler {
206: my ($r) = @_;
207: my %marks;
208: my $save_mark;
209: my $page;
210: &Apache::loncommon::content_type($r,'text/html');
211: $r->send_http_header;
212: if (defined($env{'form.hiddenbookmarks'})) {
213: $marks{'bookmarks'}=$env{'form.hiddenbookmarks'};
214: &write_bookmarks($marks{'bookmarks'});
215: $page=&construct_toolbar();
216: } else {
217: %marks=&get_bookmarks();
218: if (exists($marks{"con_lost"})) {
219: #$page = construct_editor($marks{'bookmarks'}); # Delete this line and uncomment next
220: # in order to re-enable connection detection
221: $page=&construct_error(&mt("Connection broken with home server. Please contact your system administrator."));
222: } else {
223: if (defined($env{'form.address'})) {
224: $page=&add_bookmark($env{'form.address'},$env{'form.title'},$marks{'bookmarks'});
225: } else {
226: if ($marks{'bookmarks'} eq "") {
227: $marks{'bookmarks'}=&defaultmarks();
228: }
229: $page = &construct_editor($marks{'bookmarks'});
230: }
231: }
232: }
233: $r->print($page);
234: return OK;
235: }
236:
237: ####################################
238: #
239: # The following was used for debugging when the bookmarks get corrupted
240: # ben 10/12/2000
241: sub recovermarks {
242: return(<<END_MARKS);
243: window.tree.bookmarks.addFolder("Default Bookmarks",true);
244: window.tree.bookmarks.p[0].addFolder("LON-CAPA",true);
245: window.tree.bookmarks.p[0].p[0].addLink("Main","http://www.lon-capa.org/");
246: window.tree.bookmarks.p[0].p[0].addLink("Help","http://help.lon-capa.org/");
247: window.tree.bookmarks.p[0].p[0].addLink("Bugs","http://bugs.lon-capa.org/");
248: END_MARKS
249: }
250: #
251: #
252: ##########################################
253:
254: ##########################################
255: #
256: # Here is a listing of default bookmarks. It may be used to replace 'recover'
257: # eventually, but for now these will load after all bookmarks have been deleted.
258: # ben 10/12/2000
259: sub defaultmarks {
260: return(<<END_MARKS);
261: window.tree.bookmarks.addFolder("Default Bookmarks",true);
262: window.tree.bookmarks.p[0].addFolder("LON-CAPA",true);
263: window.tree.bookmarks.p[0].p[0].addLink("Main","http://www.lon-capa.org/");
264: window.tree.bookmarks.p[0].p[0].addLink("Help","http://help.lon-capa.org/");
265: window.tree.bookmarks.p[0].p[0].addLink("Bugs","http://bugs.lon-capa.org/");
266: END_MARKS
267: }
268:
269: 1;
270: __END__
271:
272:
273:
274:
275:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to admbookmarks.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / html / res / adm / pages / bookmarkmenu