Annotation of loncom/interface/lonmenu.pm, revision 1.1
1.1 ! www 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>