[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, 2 months ago) by harris41
Branches: MAIN
CVS tags: HEAD
the form element interface for the search catalog -Scott

# The LearningOnline Network
# Search Catalog
#
# 03/08/2001 Scott Harrison
#
package Apache::lonsearchcat;

use strict;
use Apache::Constants qw(:common);

sub handler {
    my $r = shift;
    $r->content_type('text/html');
    $r->send_http_header;
    return OK if $r->header_only;

# ---------------------------------------------------------------- Print screen
    $r->print(<<ENDDOCUMENT);
<html>
<head>
<title>The LearningOnline Network with CAPA</title>
</head>
<body bgcolor="#FFFFFF">
<h1>Search Catalog</h1>
<body bgcolor="#AAFFAA"><form>
<img src="/adm/lonKaputt/lonconstruct.gif">
<table width="100%">
<tr><td><b>Resource Library Search</b></td>
<td align=right><input type=button value="Close"
 onClick="javascript:opener.srchclose();"></td>
</tr></table>
<table bgcolor="#ffffff">
<tr><td><b>title</b> </td>
<td><INPUT TYPE="TEXT" NAME="title"></td>
</tr><tr><td><b>author</b> </td>
<td><INPUT TYPE="TEXT" NAME="author"></td>
</tr><tr><td><b>subject</b> </td>
<td><INPUT TYPE="TEXT" NAME="subject"></td>
</tr><tr><td><b>notes</b> </td>
<td><INPUT TYPE="TEXT" NAME="notes"></td>
</tr><tr><td><b>abstract</b> </td>
<td><INPUT TYPE="TEXT" NAME="abstract"></td>
</tr><tr><td><b>mime</b> </td>
<td><INPUT TYPE="TEXT" NAME="mime"></td>
</tr><tr><td><b>language</b> </td>
<td><INPUT TYPE="TEXT" NAME="language"></td>
</tr><tr><td><b>creationdate</b> </td>
<td><INPUT TYPE="TEXT" NAME="creationdate"></td>
</tr><tr><td><b>lastrevisiondate</b> </td>
<td><INPUT TYPE="TEXT" NAME="lastrevisiondate"></td>
</tr><tr><td><b>owner</b> </td>
<td><INPUT TYPE="TEXT" NAME="owner"></td>
</tr><tr><td><b>copyright</b> </td>
<td><INPUT TYPE="TEXT" NAME="copyright"></td>
</tr>
</table>
</body>
</html>
ENDDOCUMENT
    return OK;
} 

1;
__END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>