[BACK]Return to lonratparms.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat
File:  [LON-CAPA] / rat / lonratparms.pm
Revision 1.1: download - view: text, annotated - select for diffs
Sat Mar 3 16:51:38 2001 UTC (23 years, 2 months ago) by www
Branches: MAIN
CVS tags: HEAD
Handler to set resource parameters inside of the RAT based on metadata

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