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>