Re: How to get LaDBI inserted ID?(Select ID example...)

[Laura]

Then i select inserted ID after insert, it selects the 
last ID only...

sub x {
$_[HEAP]->{FORUMS_ID}=$_[ARG0];
$_[KERNEL]->yield("dbi_quote",$text);
$_[KERNEL]->yield("print_forums_ids",$text);
}
sub dbi_quote {
 $k->post("ladbi" => "quote",
          SuccessEvent => "insert",
          FailureEvent => "failed",
          HandleId => $dbh_id,
          Args => [ $_[ARG0] ],
          );
}
sub insert {
if($_[HEAP]->{TYPE} eq 'F')
{
my $sql="insert into forums 
values(nextval('forum_id'),'text')";
$_[HEAP]->{FORUMS_ID}++;
}
elsif($_[HEAP]->{TYPE} eq 'T')
{
my $sql="insert into topics 
values(nextval('topic_id'),$_[HEAP]->{FORUMS_ID},'text')";
}
 $k->post("ladbi" => "do",
          SuccessEvent => "select",
          FailureEvent => "failed",
          HandleId => $dbh_id,
          Args => [ $sql ],
          );
}

sub select {
if($_[HEAP]->{TYPE} eq 'F')
{
my $sql="select id from forums order by id desc limit 1";
}
elsif($_[HEAP]->{TYPE} eq 'T')
{
my $sql="select id from forums order by id desc limit 1";
}
 $k->post("ladbi" => "selectall",
          SuccessEvent => "save_forums_id",
          FailureEvent => "selectall_failed",
          HandleId => $dbh_id,
          Args => [ $sql ],
          );
}
sub save_forums_id {
 my $data=$_[ARG2];
 my [EMAIL PROTECTED];
}
---
Professional hosting for everyone - http://www.host.ru