1: # The LearningOnline Network with CAPA
2: # Routines to control the menu
3: #
4: # (TeX Conversion Module
5: #
6: # 05/29/00,05/30 Gerd Kortemeyer)
7: #
8: # 10/05 Gerd Kortemeyer
9:
10: package Apache::lonmenu;
11:
12: use strict;
13:
14: # =============================================================== Open the menu
15:
16: sub open {
17: return(<<ENDOPEN);
18: <script>
19: window.status='MenuControl:nologout';
20: menu=window.open("/res/adm/pages/menu.html","LONCAPAmenu",
21: "height=350,width=150,scrollbars=no,menubar=no");
22: </script>
23: ENDOPEN
24: }
25:
26: # ================================================================== Conversion
27:
28: sub close {
29: return(<<ENDCLOSE);
30: <script>
31: window.status='MenuControl:nologout';
32: menu=window.open("/adm/rat/empty.html","LONCAPAmenu",
33: "height=350,width=150,scrollbars=no,menubar=no");
34: menu.close();
35: </script>
36: ENDCLOSE
37: }
38:
39: # ====================================================================== Footer
40:
41: sub footer {
42:
43: }
44:
45: 1;
46: __END__
47:
48:
49:
50:
51:
52:
53:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>