[LON-CAPA-cvs] cvs: loncom / loncapa_apache.conf /interface lonmenu.pm

Thu, 13 Feb 2003 15:52:53 -0000

www		Thu Feb 13 10:52:53 2003 EDT

  Modified files:              
    /loncom	loncapa_apache.conf 
    /loncom/interface	lonmenu.pm 
  Log:
  Start work on server-side menu
  
  
Index: loncom/loncapa_apache.conf
diff -u loncom/loncapa_apache.conf:1.32 loncom/loncapa_apache.conf:1.33

--- loncom/loncapa_apache.conf:1.32	Mon Feb  3 13:03:52 2003
+++ loncom/loncapa_apache.conf	Thu Feb 13 10:52:53 2003
@@ -1,7 +1,7 @@
 ##
 ## loncapa_apache.conf -- Apache HTTP LON-CAPA configuration file
 ##
-## $Id: loncapa_apache.conf,v 1.32 2003/02/03 18:03:52 harris41 Exp $
+## $Id: loncapa_apache.conf,v 1.33 2003/02/13 15:52:53 www Exp $
 ##
 
 #
@@ -215,6 +215,14 @@
 PerlAccessHandler       Apache::lonacc
 SetHandler perl-script
 PerlHandler Apache::lonroles
+ErrorDocument     403 /adm/login
+ErrorDocument	  500 /adm/errorhandler
+</Location>
+
+<Location /adm/menu>
+PerlAccessHandler       Apache::lonacc
+SetHandler perl-script
+PerlHandler Apache::lonmenu
 ErrorDocument     403 /adm/login
 ErrorDocument	  500 /adm/errorhandler
 </Location>
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.32 loncom/interface/lonmenu.pm:1.33
--- loncom/interface/lonmenu.pm:1.32	Fri Jan 31 16:46:36 2003
+++ loncom/interface/lonmenu.pm	Thu Feb 13 10:52:53 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.32 2003/01/31 21:46:36 www Exp $
+# $Id: lonmenu.pm,v 1.33 2003/02/13 15:52:53 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -36,6 +36,8 @@
 
 use strict;
 use Apache::lonnet;
+use Apache::Constants qw(:common);
+use Apache::loncommon;
 use Apache::File;
 use vars qw(@desklines $readdesk);
 
@@ -261,6 +263,23 @@
 
 sub footer {
 
+}
+
+# ================================================ Handler when called directly
+
+
+sub handler {
+    my $r = shift;
+    $r->content_type('text/html');
+    $r->send_http_header;
+    return OK if $r->header_only;
+
+# ------------------------------------------------------------ Print the screen
+    $r->print('<html><head><title>LON-CAPA Main Menu</title></head>');
+    $r->print('<body bgcolor="#FFFFFF">');
+    $r->print('<h1>LON-CAPA Main Menu</h1>');
+    $r->print('</body></html>');
+    return OK;
 }
 
 # ================================================================ Main Program



