[BACK]Return to lonsearchcat.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Annotation of loncom/interface/lonsearchcat.pm, revision 1.2

1.1       www         1: # The LearningOnline Network
                      2: # Search Catalog
                      3: #
1.2     ! harris41    4: # 03/08/2001 Scott Harrison
1.1       www         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: 
1.2     ! harris41   17: # ---------------------------------------------------------------- Print screen
1.1       www        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>
1.2     ! harris41   25: <body bgcolor="#AAFFAA"><form>
1.1       www        26: <img src="/adm/lonKaputt/lonconstruct.gif">
1.2     ! harris41   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>
1.1       www        57: </body>
                     58: </html>
                     59: ENDDOCUMENT
                     60:     return OK;
                     61: } 
                     62: 
                     63: 1;
                     64: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>