Hi everyone. So I'm writing an html form for the first time, results of which will be submitted to a mySQL database using a CGI script. The html file incorporates a checkbox but I can't get the results of the checkbox to pass correctly through the CGI. Below is the code for the html and for the CGI. Thank you.

HTML 
 <!DOCTYPE html>
<html>
<body>
<form action = "http://bioinfo.lnx.biu.ac.il/aj-cgi/trypsnodb2.cgi" me
+thod="POST">
    <select name="family">
        <option>C/D</option>
        <option>H/ACA</option>
        <option>ALL</option>
    </select><br>
    <input type="checkbox" name="TB" value="on">Trypanosoma brucei<br>
    <input type="checkbox" name="LM" value="on">Leishmania major<br>
    <input type="checkbox" name="HS" value="on">Homo sapiens<br>
    <input type="checkbox" name="SC" value="on">Saccharomyces cerevisi
+ae<br>
    <input type="checkbox" name="AT" value="on">Arabidopsis thaliana<b
+r>
    <input type="submit" name="submit1">
    <input type="reset" name="reset1"><br><br>
    <input type="text" name="enter_sno" placeholder="snoRNA">
    <input type="submit" name="submit2">
</form>
</body>
</html>

[download]
CGI 
#!/usr/bin/perl -w
use strict;
use DBI;
use CGI;

my $query = new CGI;
print $query->header();
my $my_database = "TrypSnoDB";
my $localhost = "localhost";
my $dsn = "DBI:mysql:$my_database:$localhost";
my $db_user_name = "adrian";
my $db_password = "temp_pass";
my $dbh = DBI->connect("DBI:mysql:database=TrypSnoDB;host=localhost;my
+sql_socket=/private/software/mysql/mysql.sock","adrian","temp_pass", 
+{'RaiseError' => 1});

if ($query->param('submit1')){
    my $family = $query->param('family');
    my $TB = $query->param('TB');
    my $LM = $query->param('LM');
    my $HS = $query->param('HS');
    my $SC = $query->param('SC');
    my $AT = $query->param('AT');
    my $db_query;
    if ($family eq "ALL") {
        $family = "'C/D' or ST.family='H/ACA'"
    }
    else {
        $family = "'$family'";
    }
    $db_query = "SELECT ST.sno_name,HT.homolog_name FROM sno_Table ST,
+Homolog_Table HT,sno_Homologs SH,Organism O 
WHERE ST.sno_id=SH.sno_id AND SH.homolog_id=HT.homolog_id AND HT.org_i
+d=O.org_id and (ST.family=$family) and
O.organism='$TB'";
    my $sth = $dbh->prepare($db_query);
    $sth->execute();
    my$total = $sth->rows;
    print "<table border=1>\n
    <tr>
        <th>snoRNA</th>\n
        <th>Homolog</th>\n
    </tr>\n";
    while (my@row = $sth->fetchrow_array()){
        my$sno_name = $row[0];
        my$homolog_name = $row[1];
        print "<tr>\n<td>$sno_name</d><td>$homolog_name</td></tr>\n";
    }
    print "<tr>
        <th>TOTAL</th>\n
        <th>$total</th>\n
    </tr>\n";
    print "</table>";        
}
elsif ($query->param('submit2')){
    my $ud_sno = $query->param('enter_sno'); 
    my$db_query;
    $db_query = "SELECT ST.sno_name,HT.homolog_name FROM sno_Table ST,
+Homolog_Table HT,sno_Homologs SH 
WHERE ST.sno_id=SH.sno_id AND SH.homolog_id=HT.homolog_id AND ST.sno_n
+ame='$ud_sno'";
    my $sth = $dbh->prepare($db_query);
    $sth->execute();
        print "<table border=1>\n
    <tr>
        <th>snoRNA</th>\n
        <th>Homolog</th>\n
    </tr>\n";
    while (my@row = $sth->fetchrow_array()){
        my$ud_sno_name = $row[0];
        my$hom_name = $row[1];
        print "<tr>\n<td>$ud_sno_name</d><td>$hom_name</td></tr>\n";
    }
    print "</table>";
}

[download]

In reply to html checkbox and perl cgi by AdrianJ217

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.