[BACK]Return to lonsearchcat.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface
File:  [LON-CAPA] / loncom / interface / lonsearchcat.pm
Revision 1.2: download - view: text, annotated - select for diffs
Thu Mar 8 13:32:04 2001 UTC (23 years, 3 months ago) by harris41
Branches: MAIN
CVS tags: HEAD
the form element interface for the search catalog -Scott

    1: # The LearningOnline Network
    2: # Search Catalog
    3: #
    4: # 03/08/2001 Scott Harrison
    5: #
    6: package Apache::lonsearchcat;
    7: 
    8: use strict;
    9: use Apache::Constants qw(:common);
   10: 
   11: sub handler {
   12:     my $r = shift;
   13:     $r->content_type('text/html');
   14:     $r->send_http_header;
   15:     return OK if $r->header_only;
   16: 
   17: # ---------------------------------------------------------------- Print screen
   18:     $r->print(<<ENDDOCUMENT);
   19: <html>
   20: <head>
   21: <title>The LearningOnline Network with CAPA</title>
   22: </head>
   23: <body bgcolor="#FFFFFF">
   24: <h1>Search Catalog</h1>
   25: <body bgcolor="#AAFFAA"><form>
   26: <img src="/adm/lonKaputt/lonconstruct.gif">
   27: <table width="100%">
   28: <tr><td><b>Resource Library Search</b></td>
   29: <td align=right><input type=button value="Close"
   30:  onClick="javascript:opener.srchclose();"></td>
   31: </tr></table>
   32: <table bgcolor="#ffffff">
   33: <tr><td><b>title</b> </td>
   34: <td><INPUT TYPE="TEXT" NAME="title"></td>
   35: </tr><tr><td><b>author</b> </td>
   36: <td><INPUT TYPE="TEXT" NAME="author"></td>
   37: </tr><tr><td><b>subject</b> </td>
   38: <td><INPUT TYPE="TEXT" NAME="subject"></td>
   39: </tr><tr><td><b>notes</b> </td>
   40: <td><INPUT TYPE="TEXT" NAME="notes"></td>
   41: </tr><tr><td><b>abstract</b> </td>
   42: <td><INPUT TYPE="TEXT" NAME="abstract"></td>
   43: </tr><tr><td><b>mime</b> </td>
   44: <td><INPUT TYPE="TEXT" NAME="mime"></td>
   45: </tr><tr><td><b>language</b> </td>
   46: <td><INPUT TYPE="TEXT" NAME="language"></td>
   47: </tr><tr><td><b>creationdate</b> </td>
   48: <td><INPUT TYPE="TEXT" NAME="creationdate"></td>
   49: </tr><tr><td><b>lastrevisiondate</b> </td>
   50: <td><INPUT TYPE="TEXT" NAME="lastrevisiondate"></td>
   51: </tr><tr><td><b>owner</b> </td>
   52: <td><INPUT TYPE="TEXT" NAME="owner"></td>
   53: </tr><tr><td><b>copyright</b> </td>
   54: <td><INPUT TYPE="TEXT" NAME="copyright"></td>
   55: </tr>
   56: </table>
   57: </body>
   58: </html>
   59: ENDDOCUMENT
   60:     return OK;
   61: } 
   62: 
   63: 1;
   64: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>