#!/usr/bin/perl -wT

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


print header,

start_html('Test von CGI'),
h1('<font color=blue>Details of the Sequence:</font>'),
"<a href='jo.cgi'>back</a>",
hr;


our @result;
my $input;
my $popup_menu_value;

if ( defined(param('input')) ){
    $input = param('input');
    }
    
if ( defined(param('table')) ){
    $popup_menu_value = param('table');
    }    

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
}


    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;
    
    print start_form;
    while(my @row = $sql->fetchrow_array() ){
        push(@result,@row);
        $counter++;
        print(" <tr> <td>",checkbox('cb'.$counter,0,'1',$counter),"</td>",    
              "<td> <A HREF='details.cgi?art=$row[ 1 ]'>$row[ 1 ]</A></td></tr>");
    }
    print submit('show','show'),p;
    
    
    print "Länge: ",$#result,"<p>";
    
if(param('show') ){
    
    
    print "Länge: ",$#result,"<p>";
    print "Param cb1: ",param('cb1');
    
    for(my $i=0; $i <= $#result; $i++){
        if(param('cb').$i+1 == 1){
            print $result[$i];
        }
    }


}