[no subject]

I believe you'll need single quotes around $id above.

>     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.
> 
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Ale mailing list
> Ale at ale.org
&gt; <a  rel="nofollow" href="http://www.ale.org/mailman/listinfo/ale";>http://www.ale.org/mailman/listinfo/ale</a>


-- 
Until later, Geoffrey


</pre>
<!--X-Body-of-Message-End-->
<!--X-MsgBody-End-->
<!--X-Follow-Ups-->
<hr>
<ul><li><strong>Follow-Ups</strong>:
<ul>
<li><strong><a name="01259" href="msg01259.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="01270" href="msg01270.html">[ale] brain damaged perl DBI</a></strong>
<ul><li><em>From:</em> fletch at phydeaux.org (fletch at phydeaux.org)</li></ul></li>
</ul></li></ul>
<!--X-Follow-Ups-End-->
<!--X-References-->
<ul><li><strong>References</strong>:
<ul>
<li><strong><a name="01242" href="msg01242.html">[ale] brain damaged perl DBI</a></strong>
<ul><li><em>From:</em> jkinney at localnetsolutions.com (James P. Kinney III)</li></ul></li>
</ul></li></ul>
<!--X-References-End-->
<!--X-BotPNI-->
<ul>
<li>Prev by Date:
<strong><a href="msg01252.html">[ale] accessing my linux box from a windows machine</a></strong>
</li>
<li>Next by Date:
<strong><a href="msg01254.html">[ale] OT Speedfactory Problems Anyone?</a></strong>
</li>
<li>Previous by thread:
<strong><a href="msg01244.html">[ale] brain damaged perl DBI</a></strong>
</li>
<li>Next by thread:
<strong><a href="msg01259.html">[ale] brain damaged perl DBI</a></strong>
</li>
<li>Index(es):
<ul>
<li><a href="maillist.html#01253"><strong>Date</strong></a></li>
<li><a href="threads.html#01253"><strong>Thread</strong></a></li>
</ul>
</li>
</ul>

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