--- loncom/interface/lonmenu.pm	2003/01/31 21:46:36	1.32
+++ loncom/interface/lonmenu.pm	2003/02/13 15:52:53	1.33
@@ -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 @@ package Apache::lonmenu;
 
 use strict;
 use Apache::lonnet;
+use Apache::Constants qw(:common);
+use Apache::loncommon;
 use Apache::File;
 use vars qw(@desklines $readdesk);
 
@@ -263,6 +265,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
 
 BEGIN {
