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

Diff for /loncom/metadata_database/Attic/lonsql.pm between versions 1.1 and 1.3

version 1.1, 2001/02/20 14:12:48 version 1.3, 2001/02/20 15:03:23
Line 6 Line 6
 package Apache::lonsql;  package Apache::lonsql;
   
 use strict;  use strict;
   use Opcode;
   use Apache::lonnet;
   use Apache::Constants qw(:common :http);
   
   use CGI;
   
   # ================================================================ Main handler
   #
   # Interactive call to screen
   #
   #
   
   sub handler {
       my $r=shift;
   
       if ($r->header_only) {
         $r->content_type('text/html');
         $r->send_http_header;
         return OK;
       }
   
   # ------------------------------------------------------------------- Open page
   
       my $query=new CGI;
   
       my $searchquery;
       my $searchresults;
   
       if ($query->{'SUBMIT'}) {
    $searchquery="trying to search...";
       }
   
       $r->content_type('text/html');
       $r->header_out('Cache-control','no-cache');
       $r->header_out('Pragma','no-cache');
       $r->send_http_header;
       my $output=<<END;
   
   <P>
   <H1>MySQL search engine</H1>
   <FORM METHOD="GET" ACTION="/adm/sqltest">
   <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>
   <TR><TD><STRONG>title</STRONG></TD>
   <TD><INPUT TYPE="TEXT" NAME="title"></TD>
   <TR><TD><STRONG>author</STRONG></TD>
   <TD><INPUT TYPE="TEXT" NAME="author"></TD>
   <TR><TD><STRONG>subject</STRONG></TD>
   <TD><INPUT TYPE="TEXT" NAME="subject"></TD>
   <TR><TD><STRONG>notes</STRONG></TD>
   <TD><INPUT TYPE="TEXT" NAME="notes"></TD>
   <TR><TD><STRONG>abstract</STRONG></TD>
   <TD><INPUT TYPE="TEXT" NAME="abstract"></TD>
   <TR><TD><STRONG>mime</STRONG></TD>
   <TD><INPUT TYPE="TEXT" NAME="mime"></TD>
   <TR><TD><STRONG>language</STRONG></TD>
   <TD><INPUT TYPE="TEXT" NAME="language"></TD>
   <TR><TD><STRONG>creationdate</STRONG></TD>
   <TD><INPUT TYPE="TEXT" NAME="creationdate"></TD>
   <TR><TD><STRONG>lastrevisiondate</STRONG></TD>
   <TD><INPUT TYPE="TEXT" NAME="lastrevisiondate"></TD>
   <TR><TD><STRONG>owner</STRONG></TD>
   <TD><INPUT TYPE="TEXT" NAME="owner"></TD>
   <TR><TD><STRONG>copyright</STRONG></TD>
   <TD><INPUT TYPE="TEXT" NAME="copyright"></TD>
   </TR>
   </TABLE>
   <SELECT NAME="logic">
   <OPTION SELECTED>and</OPTION>
   <OPTION>or</OPTION>
   </SELECT>
   <INPUT TYPE="SUBMIT" NAME="SUBMIT" VALUE="SEARCH MySQL DATABASE">
   </P>
   <P>
   $searchquery
   </P>
   <P>
   $searchresults
   </P>
   END
       $r->print($output);
       return OK;
   }
   
   
   
Removed from v.1.1  
changed lines
  Added in v.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>