#!/usr/bin/perl -wT

use strict;
use CGI qw/:standard/;
use DBI;

print header,

start_html('Database Interface'),
h1('<font color=blue>first test of a query! Just in a few DNA-Sequences:</font>'),hr,
start_form,
textarea(    -name    =>'input',
            -default=>'Enter your sequence here...',
            -rows=>'10',
            -columns=>'50'),br,
            
'<font color=blue>Choose the table:  </font>',

popup_menu( -name       =>'table',
            -values    =>[qw/dnaseq protseq/], 
            -labels    =>{'dnaseq'=>'DNA-Sequences','protseq'=>'Protein-Sequences'}),p,


submit('subm','submit'),p,
end_form,
hr;

my $popup_menu_value = param('table');
my $input;
my @result;

if( $popup_menu_value eq "dnaseq"){
    $input = uc param('input');     #uc wandelt Klein- in Großbuchstaben um
}
else{
    $input = lc param('input');     #lc wandelt Groß- in Kleinbuchstaben um
}

import_names('items');

if ($items::subm) {

    my $table = param('table');                                              
    my $query = "select * from $table where seq like '%$input%';";            
    my $dbname = 'perl';   
    my $seqs = DBI->connect("dbi:Pg:dbname=$dbname",'marc','')            
        or die "Kann keine Verbindung herstellen: $DBI::errstr";
    my $sql = $seqs->prepare($query)  
        or die "Kann die Abfrage nicht vorbereiten: $DBI::errstr";                                
    $sql->execute();
    print "Result is:",p;
    print(" <table border=0 width=80%>
            <colgroup>
            <col width=50>
            <col width=80>
            </colgroup>
            <th align=left>#</th>
            <th align=left>Sequence</th>");
    my $counter = 0;
    
    while(@result = $sql->fetchrow_array() ){
        $counter++;
        print(" <tr> <td>",checkbox($counter),"</td>",    
              "<td> <A HREF='details.cgi?art=$result[ 1 ]'>$result[ 1 ]</A></td></tr>");
    }
    print("</table>");

    print start_form,
        submit('show','show'),p,
        end_form,
        hr;
}
elsif ($items::show) {
     print ( ... );

}