[no subject]

# connect to database
  my $dbh = $form->dbconnect($myconfig);
  my $id_start = $form->{id};
  my @clone_list;
  my %clone_test;
  push @clone_list, $id_start;
  $clone_test{$id_start} = 1;
  foreach my $id (@clone_list){
    my $query = qq|SELECT id 
       FROM assembly  
       WHERE parts_id = $id|;
    my $sth = $dbh->prepare($query);
    $sth->execute || $form->dberror($query);
    my $ref;
    while ($ref = $sth->fetchrow_arrayref){
      my $cloneid = [ @$ref ];
      if ((! $clone_test{$cloneid}) && ($cloneid !~ $id_start)){
        push @clone_list, $cloneid;
        $clone_test{$cloneid}=1;
      }
    }
    $sth->finish;
  }
  $dbh->disconnect;
  open (OUT, ">/tmp/out.IC")||die "$!\n";
  my $line = join ', ', @clone_list;
  print OUT "clone_list = $line\n";
  close OUT;
  push @{ $form->{clone_list}}, @clone_list;


The file /tmp/out.IC gets only "clone_list = 0" ?!?!?!

I added prints to the while ($ref.....) block and got nothing. If I add
a die in the while block, it dies at that point. so I know it's running.

-- 
James P. Kinney III          \Changing the mobile computing world/
CEO & Director of Engineering \          one Linux user         /
Local Net Solutions,LLC        \           at a time.          /
770-493-8244                    \.___________________________./
<a  rel="nofollow" href="http://www.localnetsolutions.com";>http://www.localnetsolutions.com</a>

GPG ID: 829C6CA7 James P. Kinney III (M.S. Physics)
&lt;jkinney at localnetsolutions.com&gt;
Fingerprint = 3C9E 6366 54FC A3FE BA4D 0659 6190 ADC3 829C 6CA7
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: This is a digitally signed message part



</pre>
<!--X-Body-of-Message-End-->
<!--X-MsgBody-End-->
<!--X-Follow-Ups-->
<hr>
<ul><li><strong>Follow-Ups</strong>:
<ul>
<li><strong><a name="01244" href="msg01244.html">[ale] brain damaged perl DBI</a></strong>
<ul><li><em>From:</em> jkinney at localnetsolutions.com (James P. Kinney III)</li></ul></li>
<li><strong><a name="01253" href="msg01253.html">[ale] brain damaged perl DBI</a></strong>
<ul><li><em>From:</em> esoteric at 3times25.net (Geoffrey)</li></ul></li>
</ul></li></ul>
<!--X-Follow-Ups-End-->
<!--X-References-->
<!--X-References-End-->
<!--X-BotPNI-->
<ul>
<li>Prev by Date:
<strong><a href="msg01241.html">[ale] accessing my linux box from a windows machine</a></strong>
</li>
<li>Next by Date:
<strong><a href="msg01243.html">[ale] accessing my linux box from a windows machine</a></strong>
</li>
<li>Previous by thread:
<strong><a href="msg01224.html">[ale] OT: Scrum and Extended Development</a></strong>
</li>
<li>Next by thread:
<strong><a href="msg01244.html">[ale] brain damaged perl DBI</a></strong>
</li>
<li>Index(es):
<ul>
<li><a href="maillist.html#01242"><strong>Date</strong></a></li>
<li><a href="threads.html#01242"><strong>Thread</strong></a></li>
</ul>
</li>
</ul>

<!--X-BotPNI-End-->
<!--X-User-Footer-->
<!--X-User-Footer-End-->
</body>
</html>