Return to lonsearchcat.pm CVS log | Up to [LON-CAPA] / loncom / interface |
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__