[BACK]Return to lonevaluate.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface
File:  [LON-CAPA] / loncom / interface / lonevaluate.pm
Revision 1.1: download - view: text, annotated - select for diffs
Wed Jan 3 16:20:59 2001 UTC (23 years, 4 months ago) by www
Branches: MAIN
CVS tags: stable_2001_fall, HEAD
Trying to make ugly things look pretty

    1: # The LearningOnline Network
    2: # Evaluate
    3: #
    4: # (Internal Server Error Handler
    5: #
    6: # (Login Screen
    7: # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
    8: # 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)
    9: #
   10: # 3/1/1 Gerd Kortemeyer)
   11: #
   12: # 3/1 Gerd Kortemeyer
   13: #
   14: package Apache::lonevaluate;
   15: 
   16: use strict;
   17: use Apache::Constants qw(:common);
   18: 
   19: sub handler {
   20:     my $r = shift;
   21:     $r->content_type('text/html');
   22:     $r->send_http_header;
   23:     return OK if $r->header_only;
   24: 
   25: # --------------------------------------------------- Print login screen header
   26:     $r->print(<<ENDDOCUMENT);
   27: <html>
   28: <head>
   29: <title>The LearningOnline Network with CAPA</title>
   30: </head>
   31: <body bgcolor="#FFFFFF">
   32: <h1>Evaluate</h1>
   33: <img src="/adm/lonKaputt/lonconstruct.gif">
   34: </body>
   35: </html>
   36: ENDDOCUMENT
   37:     return OK;
   38: } 
   39: 
   40: 1;
   41: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>