RE: only first checked item passed

[NYIMI Jose (BMB)]

Try
(@rows)=$sth->fetchrow_array;
Not 
@rows=$sth->fetchrow_array;

José.

-----Original Message-----
From: Prachi Shah [mailto:[EMAIL PROTECTED] 
Sent: Thursday, August 21, 2003 11:06 PM
To: [EMAIL PROTECTED]
Subject: only first checked item passed


Hi all,

I have a CGI script which does a select on a database and builds a checkbox group 
iterating through the result of the select. The problem is when a user 
submits the form, only the first checked item in the checkbox group is 
passed.
Below is the snippet of the perl code that generates the checkbox group. 
Please advise me if there is anything I am doing wrong. Any help is 
appreciated.

Thanks,
Prachi.

### cut code ####
if (!$sth) {
      $sth = $dbh->prepare("SELECT * FROM " . $schema .
         "dberge_ranges WHERE chrom = ? " .
          "AND start_pt <= ? AND stop_pt >= ? ORDER BY id, start_pt");
   }
   $sth->execute($chr, $stp, $st);
   my(@row) = $sth->fetchrow_array;
    #print "@row\n";
   if ([EMAIL PROTECTED]) {
      print $q->strong("No  results and Expression data found\n"), $q->br;
   }else {
      print $q->strong("Experimental results of gene expression"), $q->br;
      print $q->start_form(-action => $dberge_url);
      print $q->br;
      print $q->start_table({-border=>1}), $q->Tr,
            $q->td("ExperimentID  Assay"),
            $q->td("range affected");
      my $pid = 0;
      while (@row) {
         $row[3] = commify($row[3]);
         $row[4] = commify($row[4]);
         if ($pid == $row[0]) { #same variant another range
            if ($row[3] ne $row[4]) {
               print $q->br, "$row[2] $row[3] - $row[4]";
            }else {
               print $q->br, "$row[2] $row[3]";
            }
         }else { #new dberge entry
             print $q->Tr;
            print $q->td( $q->checkbox(-name=>'id',
                                       -value=>$row[0],
                                       -label=>"$row[0] $row[1]"));
            if ($row[3] ne $row[4]) {
               print $q->td, "$row[2] $row[3] - $row[4]"; #may continue
            }else {
               print $q->td, "$row[2] $row[3]";
            }
         }
         $pid = $row[0];
         @row = $sth->fetchrow_array;
      }
      print $q->br;
      print $q->end_table;
      print $q->br;

     print $q->hidden("mode", "Submit query"),
            $q->hidden("disp","All data");
      print $q->submit(-name=>"View", -value=>"Submit");

#### end cut code ###

_________________________________________________________________
Chat privately with Bon Jovi, Seal, Bow Wow, or Mary J Blige using MSN 
Messenger! http://www5.msnmessenger-download.com/imastar/default.aspx


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



**** DISCLAIMER ****

"This e-mail and any attachment thereto may contain information which is confidential 
and/or protected by intellectual property rights and are intended for the sole use of 
the recipient(s) named above. 
Any use of the information contained herein (including, but not limited to, total or 
partial reproduction, communication or distribution in any form) by other persons than 
the designated recipient(s) is prohibited. 
If you have received this e-mail in error, please notify the sender either by 
telephone or by e-mail and delete the material from any computer".

Thank you for your cooperation.

For further information about Proximus mobile phone services please see our website at 
http://www.proximus.be or refer to any Proximus agent.


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]