0

Database schema:

create table requests(
    rid integer primary key autoincrement,
    oid integer references orders (oid),
    command varchar(5),
    account varchar(50),
    txn_id varchar(12),
    md5 varchar(30),
    txn_date varchar(14),
    sum float,
    regdt timestamp default current_timestamp,
    constraint u1 unique (command,txn_id)
);
create table orders (
    oid integer primary key autoincrement,
    cid integer references customers (cid),
    pid integer references providers (pid),
    account varchar(50),
    amount float
);  

Mapped to code by DBIx::Class::Schema::Loader.

My controller code :

 my $req= $schema->resultset('Request');
 my $order= $schema->resultset('Order');

      my $r= $req->find(
            {   command => 'check',
                txn_id  => $txn_id,
            },
            { key => 'command_txn_id_unique' }
        );
        my $oid=$r->oid;

        $req->create(
            {   command  => $command,
                account  => $account,
                txn_id   => $txn_id,
                md5      => $md5,
                txn_date => $txn_date,
                sum      => $sum,
                oid      => $oid
            }
        );
       my $o = $order->find($oid);

       $o->sum($sum);
       $o->update;

My tracert sqls with DBIC_TRACE=1

  SELECT me.rid, me.oid, me.command, me.account, me.txn_id, me.md5, me.txn_date, me.sum, me.regdt FROM requests me 
WHERE ( ( me.command = ? AND me.txn_id = ? ) ): 'check', '1358505665'
    SELECT me.oid, me.cid, me.pid, me.account, me.amount FROM orders me 
WHERE ( me.oid = ? ): '18'
    INSERT INTO requests ( account, command, md5, oid, sum, txn_date, txn_id) VALUES ( ?, ?, ?, ?, ?, ?, ? ): '1', 'pay', '44F4BC73D17E3FA906F658BB5916B7DC', '18', '500', '20130118104122', '1358505665'
    DBIx::Class::Storage::DBI::SQLite::_dbi_attrs_for_bind(): Non-integer value supplied for column 'me.oid' despite the integer datatype at /home/.../lib/TestPrj/Test.pm line 128
    SELECT me.oid, me.cid, me.pid, me.account, me.amount FROM orders me WHERE ( me.oid = ? ): 'TestPrj::Model::Result::Order=HASH(0x3dea448)'
    datatype mismatch: bind param (0) =HASH(0x3dea448) as integer at /usr/share/perl5/DBIx/Class/Storage/DBI.pm line 1765.

I don't understand :

Why in first select query $oid = 18 and its ok. Its really 18.

But in second select query this $oid is a HASH ? Its not redefined anywhere in my code.

UPD:

Using Data::Dumper by advice @akawhy I saw that $oid is a blessed HASH.

So, looks like there is different context

scalar in { ... oid => $oid .. .}

and hash in find(...).

I don't know why it not a hash in first case.

But, when I changed to $oid=$r->get_column($oid) all works fine.

2 Answers 2

2

$resultset->find returns a Result object. You didn't paste your ResultSource classes but as you wrote that you generated them with Schema::Loader I assume the 'oid' column accessor method is the same as the 'oid' relationship accessor. In that case it returns different things depending on scalar vs. list context.

I suggest to rename your relationship so you have two different accessors for the column value and its relationship.

I prefix all relationships with 'rel_' but you might prefer a different naming standard.

1

I think my $oid=$r->oid; the $oid is a ref. you can use ref or Data::Dumper to see its type.

Maybe you should use $oid->oid

And pay attention to this error

DBIx::Class::Storage::DBI::SQLite::_dbi_attrs_for_bind(): Non-......

1
  • 1
    Thank you. Really $oid was a BIG hash, as it show Data::Dumper. I fixed my program by change to my $oid=$r->get_column('oid'); Jun 7, 2013 at 14:20

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.