[Dbix-class] Re: create_related is failing on second time through
loop?
Tim Anderson
tja824 at gmail.com
Thu Jun 21 18:31:24 GMT 2012
I've reduced my issue to a simple test scenario and I am still able to
reproduce. Here's what I've got:
A 'header' table, with a header_id column (pk) and a header_name column.
A 'detail' table, with a header_id and detail_id column (pk) and a detail
name column.
I generated the Schema files for my simple database using the
Schema::Loader module. Then I wrote the following test script:
#!/usr/bin/perl
use lib ('./lib');
use TJATest::Schema;
my $schema =3D TJATest::Schema->connect(
'dbi:Sybase:server=3DmgmtDb;database=3Dtja_test',
'xxxxxxxx', 'xxxxxxxx' );
$schema->storage->debug(1);
my $rs =3D $schema->resultset('Header');
my $loop_counter =3D 1;
while (my $row =3D $rs->next) {
print "\n\nLOOP $loop_counter\n";
print $row->header_name . "\n";
$row->create_related ('details', { detail_id =3D> 5, detail_name =3D> 'new
detail (five)' } );
$loop_counter +=3D 1;
}
There are 3 rows in the Header table, so there will be 3 executions of the
code in the while loop. However, when I run the script, I get the
following output:
~/dbix$ ./test.pl
SELECT me.header_id, me.header_name FROM header me:
LOOP 1
header one
INSERT INTO detail ( detail_id, detail_name, header_id) VALUES ( ?, ?, ? )
SELECT SCOPE_IDENTITY(): '5', 'new detail (five)', '1'
LOOP 2
header two
INSERT INTO detail ( detail_id, detail_name, header_id) VALUES ( ?, ?, ? )
SELECT SCOPE_IDENTITY(): '5', 'new detail (five)', '2'
DBIx::Class::Relationship::Base::create_related(): Unknown error: execute()
returned false, but error flags were not set... at ./test.pl line 16
During loop 1, the detail row is successfully created. During loop 2,
however, I get an error, and the second record is not inserted.
The exception (above) is thrown out of the DBIx/Class/Storage/DBI.pm
module, at line 1593 (my $rv =3D $sth->execute();). I've run this with the
perl debugger, and tried to see what might be different in the $sth between
loop 1 and loop 2, but I just don't see it.
Has anyone encountered this before, and/or have any ideas of where to go
next?
I installed the system this is running on on 6/15, with current CPAN
modules at that time.
-Tim
On Tue, Jun 19, 2012 at 12:22 PM, Tim Anderson <tja824 at gmail.com> wrote:
>
>
>> Greetings,
>>
>> I've been working with DBIx::Class/Catalyst for about 2 months, and up
>> until yesterday I was feeling pretty good about my proficiency... long w=
ay
>> to go, though. I have been doing my development in a VirtualBox VM on my
>> workstation and arrived at a point where I wanted to move my application=
to
>> it's new home. I set up the new server, installed the necessary Perl
>> modules via CPAN, and copied over my application. Most of it works.
>>
>> I have two tables, one with a has_many relationship to the other. My
>> application needs to take some posted data, updates a single record in t=
he
>> main table, and then deletes and re-adds a variable number of records for
>> the 'has many' table. When the variable number <=3D 1, all is well, but=
if
>> the number is >1, the first record gets inserted in the table and then I
>> get the following in my server output:
>>
>> [error] DBIx::Class::Relationship::Base::create_related(): Unknown error:
>> execute() returned false, but error flags were not set... at
>> /opt/lms/catalyst/Portal/script/../lib/Portal/Controller/Users.pm line 4=
29
>>
>>
>> The code in question:
>>
>> #handle user_roles
>> my $roles =3D $c->request->params->{'user_role'}; #this is what is
>> desired
>> $roles =3D [ $roles ] if ref ($roles) ne 'ARRAY';
>>
>> my $existing_record =3D $c->model('DB::' .
>> $package_name)->has_record(\%form_key_vals);
>>
>> if (defined ($existing_record)) {
>>
>> $existing_record =3D $existing_record->update(\%form_vals); #this =
is
>> working
>>
>> # Delete user's existing roles, then add the new ones
>> $c->model('DB::PortalUserRole')->search({ client_id =3D>
>> $form_vals{client_id},
>> user_id =3D>
>> $form_vals{user_id}, })->delete; #this is working
>>
>> foreach my $new_role (@{$roles}) {
>> $c->log->debug("Creating new role: " . Dumper($new_role));
>>
>> $existing_record->create_related ('portal_user_roles', { role_id
>> =3D> $new_role }); #first time through works, but fails on second pass
>> }
>>
>> }
>>
>> When I set DBIC_TRACE=3D1, I see the following stack trace:
>>
>>
>> DBIx::Class::Schema::throw_exception('Portal::Schema=3DHASH(0x35fd380)',
>> 'Unknown error: execute() returned false, but error flags were...') call=
ed
>> at /usr/local/share/perl5/DBIx/Class/Storage.pm line 111
>>
>> DBIx::Class::Storage::throw_exception('DBIx::Class::Storage::DBI::Sybase=
::Microsoft_SQL_Server::Free...',
>> 'Unknown error: execute() returned false, but error flags were...') call=
ed
>> at /usr/local/share/perl5/DBIx/Class/Storage/DBI.pm line 1594
>>
>> DBIx::Class::Storage::DBI::_dbh_execute('DBIx::Class::Storage::DBI::Syba=
se::Microsoft_SQL_Server::Free...',
>> 'DBI::db=3DHASH(0x51679a0)', 'INSERT INTO PORTAL_USER_ROLE ( client_id,
>> role_id, user_id) V...', 'ARRAY(0x4fa0490)', 'ARRAY(0x533ea30)') called =
at
>> /usr/local/share/perl5/DBIx/Class/Storage/DBI.pm line 789
>> DBIx::Class::Storage::DBI::__ANON__() called at
>> /usr/local/share/perl5/Try/Tiny.pm line 71
>> eval {...} called at /usr/local/share/perl5/Try/Tiny.pm line 67
>> Try::Tiny::try('CODE(0x533e880)',
>> 'Try::Tiny::Catch=3DREF(0x520def8)') called at
>> /usr/local/share/perl5/DBIx/Class/Storage/DBI.pm line 800
>> DBIx::Class::Storage::DBI::dbh_do(undef, undef, 'INSERT INTO
>> PORTAL_USER_ROLE ( client_id, role_id, user_id) V...', 'ARRAY(0x4fa0490)=
',
>> 'ARRAY(0x533ea30)') called at
>> /usr/local/share/perl5/DBIx/Class/Storage/DBI.pm line 1558
>>
>> DBIx::Class::Storage::DBI::_execute('DBIx::Class::Storage::DBI::Sybase::=
Microsoft_SQL_Server::Free...',
>> 'insert', 'DBIx::Class::ResultSource::Table=3DHASH(0x4943810)',
>> 'HASH(0x534d2d8)', undef) called at
>> /usr/local/share/perl5/DBIx/Class/Storage/DBI/MSSQL.pm line 116
>>
>> DBIx::Class::Storage::DBI::MSSQL::_execute('DBIx::Class::Storage::DBI::S=
ybase::Microsoft_SQL_Server::Free...',
>> 'insert', 'DBIx::Class::ResultSource::Table=3DHASH(0x4943810)',
>> 'HASH(0x534d2d8)', undef) called at
>> /usr/local/share/perl5/DBIx/Class/Storage/DBI.pm line 1671
>>
>> DBIx::Class::Storage::DBI::insert('DBIx::Class::Storage::DBI::Sybase::Mi=
crosoft_SQL_Server::Free...',
>> 'DBIx::Class::ResultSource::Table=3DHASH(0x4943810)', 'HASH(0x4f9b328)')
>> called at /usr/local/share/perl5/DBIx/Class/Storage/DBI/MSSQL.pm line 67
>>
>> DBIx::Class::Storage::DBI::MSSQL::insert('DBIx::Class::Storage::DBI::Syb=
ase::Microsoft_SQL_Server::Free...',
>> 'DBIx::Class::ResultSource::Table=3DHASH(0x4943810)', 'HASH(0x4f9b328)')
>> called at /usr/local/share/perl5/DBIx/Class/Row.pm line 350
>>
>> DBIx::Class::Row::insert('Portal::Model::DB::PortalUserRole=3DHASH(0x4fa=
0790)')
>> called at /usr/local/share/perl5/DBIx/Class/Relationship/Base.pm line 604
>>
>> DBIx::Class::Relationship::Base::create_related('Portal::Model::DB::Port=
alUser=3DHASH(0x533ea78)',
>> 'portal_user_roles', 'HASH(0x4f9b130)') called at
>> /opt/lms/catalyst/Portal/script/../lib/Portal/Controller/Users.pm line 4=
43
>>
>> Portal::Controller::Users::save('Portal::Controller::Users=3DHASH(0x4c14=
790)',
>> 'Portal=3DHASH(0x4f7fc98)') called at
>> /usr/local/share/perl5/Catalyst/Action.pm line 65
>> Catalyst::Action::execute('Catalyst::Action=3DHASH(0x4df5890)',
>> 'Portal::Controller::Users=3DHASH(0x4c14790)', 'Portal=3DHASH(0x4f7fc98)=
')
>> called at /usr/local/share/perl5/Catalyst.pm line 1668
>> eval {...} called at /usr/local/share/perl5/Catalyst.pm line 1668
>> Catalyst::execute('Portal=3DHASH(0x4f7fc98)',
>> 'Portal::Controller::Users', 'Catalyst::Action=3DHASH(0x4df5890)') calle=
d at
>> /usr/local/share/perl5/Catalyst/Plugin/StackTrace.pm line 94
>> Catalyst::Plugin::StackTrace::execute('Portal=3DHASH(0x4f7fc98)',
>> 'Portal::Controller::Users', 'Catalyst::Action=3DHASH(0x4df5890)') calle=
d at
>> /usr/local/share/perl5/Catalyst/Action.pm line 60
>> Catalyst::Action::dispatch('Catalyst::Action=3DHASH(0x4df5890)',
>> 'Portal=3DHASH(0x4f7fc98)') called at
>> /usr/local/share/perl5/Catalyst/ActionChain.pm line 38
>>
>> Catalyst::ActionChain::dispatch('Catalyst::ActionChain=3DHASH(0x4f83db8)=
',
>> 'Portal=3DHASH(0x4f7fc98)') called at
>> /usr/local/share/perl5/Catalyst/Controller.pm line 125
>>
>> Catalyst::Controller::_ACTION('Portal::Controller::Users=3DHASH(0x4c1479=
0)',
>> 'Portal=3DHASH(0x4f7fc98)') called at
>> /usr/local/share/perl5/Catalyst/Action.pm line 65
>> Catalyst::Action::execute('Catalyst::Action=3DHASH(0x4dee848)',
>> 'Portal::Controller::Users=3DHASH(0x4c14790)', 'Portal=3DHASH(0x4f7fc98)=
')
>> called at /usr/local/share/perl5/Catalyst.pm line 1668
>> eval {...} called at /usr/local/share/perl5/Catalyst.pm line 1668
>> Catalyst::execute('Portal=3DHASH(0x4f7fc98)',
>> 'Portal::Controller::Users', 'Catalyst::Action=3DHASH(0x4dee848)') calle=
d at
>> /usr/local/share/perl5/Catalyst/Plugin/StackTrace.pm line 94
>> Catalyst::Plugin::StackTrace::execute('Portal=3DHASH(0x4f7fc98)',
>> 'Portal::Controller::Users', 'Catalyst::Action=3DHASH(0x4dee848)') calle=
d at
>> /usr/local/share/perl5/Catalyst/Action.pm line 60
>> Catalyst::Action::dispatch('Catalyst::Action=3DHASH(0x4dee848)',
>> 'Portal=3DHASH(0x4f7fc98)') called at
>> /usr/local/share/perl5/Catalyst/Dispatcher.pm line 257
>>
>> Catalyst::Dispatcher::_do_forward('Catalyst::Dispatcher=3DHASH(0x21c9488=
)',
>> 'forward', 'Portal=3DHASH(0x4f7fc98)', '_ACTION') called at
>> /usr/local/share/perl5/Catalyst/Dispatcher.pm line 237
>>
>> Catalyst::Dispatcher::forward('Catalyst::Dispatcher=3DHASH(0x21c9488)',
>> 'Portal=3DHASH(0x4f7fc98)', '_ACTION') called at
>> /usr/local/share/perl5/Catalyst.pm line 358
>> Catalyst::forward('Portal=3DHASH(0x4f7fc98)', '_ACTION') called =
at
>> /usr/local/share/perl5/Catalyst/Controller.pm line 99
>>
>> Catalyst::Controller::_DISPATCH('Portal::Controller::Users=3DHASH(0x4c14=
790)',
>> 'Portal=3DHASH(0x4f7fc98)') called at
>> /usr/local/share/perl5/Catalyst/Action.pm line 65
>> Catalyst::Action::execute('Catalyst::Action=3DHASH(0x4dee560)',
>> 'Portal::Controller::Users=3DHASH(0x4c14790)', 'Portal=3DHASH(0x4f7fc98)=
')
>> called at /usr/local/share/perl5/Catalyst.pm line 1668
>> eval {...} called at /usr/local/share/perl5/Catalyst.pm line 1668
>> Catalyst::execute('Portal=3DHASH(0x4f7fc98)',
>> 'Portal::Controller::Users', 'Catalyst::Action=3DHASH(0x4dee560)') calle=
d at
>> /usr/local/share/perl5/Catalyst/Plugin/StackTrace.pm line 94
>> Catalyst::Plugin::StackTrace::execute('Portal=3DHASH(0x4f7fc98)',
>> 'Portal::Controller::Users', 'Catalyst::Action=3DHASH(0x4dee560)') calle=
d at
>> /usr/local/share/perl5/Catalyst/Action.pm line 60
>> Catalyst::Action::dispatch('Catalyst::Action=3DHASH(0x4dee560)',
>> 'Portal=3DHASH(0x4f7fc98)') called at
>> /usr/local/share/perl5/Catalyst/Dispatcher.pm line 257
>>
>> Catalyst::Dispatcher::_do_forward('Catalyst::Dispatcher=3DHASH(0x21c9488=
)',
>> 'forward', 'Portal=3DHASH(0x4f7fc98)', '/users/_DISPATCH') called at
>> /usr/local/share/perl5/Catalyst/Dispatcher.pm line 237
>>
>> Catalyst::Dispatcher::forward('Catalyst::Dispatcher=3DHASH(0x21c9488)',
>> 'Portal=3DHASH(0x4f7fc98)', '/users/_DISPATCH') called at
>> /usr/local/share/perl5/Catalyst.pm line 358
>> Catalyst::forward('Portal=3DHASH(0x4f7fc98)', '/users/_DISPATCH')
>> called at /usr/local/share/perl5/Catalyst/Dispatcher.pm line 105
>>
>> Catalyst::Dispatcher::dispatch('Catalyst::Dispatcher=3DHASH(0x21c9488)',
>> 'Portal=3DHASH(0x4f7fc98)') called at /usr/local/share/perl5/Catalyst.pm=
line
>> 1614
>> Catalyst::dispatch('Portal=3DHASH(0x4f7fc98)') called at
>> /usr/local/share/perl5/Catalyst/Plugin/Static/Simple.pm line 77
>> Class::MOP::Class:::around('CODE(0x284fba8)',
>> 'Portal=3DHASH(0x4f7fc98)') called at
>> /usr/local/lib64/perl5/Class/MOP/Method/Wrapped.pm line 162
>> Class::MOP::Method::Wrapped::__ANON__('Portal=3DHASH(0x4f7fc98)')
>> called at /usr/local/lib64/perl5/Class/MOP/Method/Wrapped.pm line 91
>> Portal::dispatch('Portal=3DHASH(0x4f7fc98)') called at
>> /usr/local/share/perl5/Catalyst.pm line 1964
>> Catalyst::__ANON__() called at /usr/local/share/perl5/Try/Tiny.pm
>> line 76
>> eval {...} called at /usr/local/share/perl5/Try/Tiny.pm line 67
>> Try::Tiny::try('CODE(0x4f616a0)',
>> 'Try::Tiny::Catch=3DREF(0x4ecac50)') called at
>> /usr/local/share/perl5/Catalyst.pm line 1970
>> Catalyst::handle_request('Portal', 'env', 'HASH(0x4f58460)',
>> 'response_cb', 'CODE(0x4f61340)') called at
>> /usr/local/share/perl5/Catalyst/Engine.pm line 682
>> Catalyst::Engine::__ANON__('CODE(0x4f61340)') called at
>> /usr/local/share/perl5/Plack/Handler/FCGI.pm line 137
>> Plack::Handler::FCGI::run('Plack::Handler::FCGI=3DHASH(0x28ff9a0=
)',
>> 'CODE(0x49086f8)', 'HASH(0x218b718)') called at
>> /usr/local/share/perl5/Catalyst/Engine.pm line 664
>> Catalyst::Engine::run('Catalyst::Engine=3DHASH(0x2e0c958)',
>> 'Portal', 'CODE(0x49086f8)', '/opt/lms/catalyst/sockets/portal.socket',
>> 'HASH(0x218b718)', 'Plack::Handler::FCGI=3DHASH(0x28ff9a0)') called at
>> /usr/local/share/perl5/Catalyst.pm line 2427
>> Catalyst::run('Portal',
>> '/opt/lms/catalyst/sockets/portal.socket', 'HASH(0x218b718)',
>> 'Plack::Handler::FCGI=3DHASH(0x28ff9a0)') called at
>> /usr/local/share/perl5/Catalyst/ScriptRole.pm line 91
>>
>> Catalyst::ScriptRole::_run_application('Catalyst::Script::FastCGI=3DHASH=
(0x219e6e8)')
>> called at /usr/local/share/perl5/Catalyst/ScriptRole.pm line 61
>>
>> Catalyst::ScriptRole::run('Catalyst::Script::FastCGI=3DHASH(0x219e6e8)')
>> called at /usr/local/share/perl5/Catalyst/ScriptRunner.pm line 50
>> Catalyst::ScriptRunner::run('Catalyst::ScriptRunner', 'Portal',
>> 'FastCGI') called at script/portal_fastcgi.pl line 4
>>
>> I've been Googling for the past day and a half, and I've tried several
>> things to isolate the problem and shed more light, but I am at a
>> standstill. Has anyone seen this happen before, to be able to point me
>> toward a solution? I've traced on the database side, and I don't even
>> think the second insert is being run there. I'd greatly appreciate any
>> help.
>>
>> Yes, I realize there are Catalyst dependencies in my code, and I have
>> asked the question on that list too. Unfortunately, I'm not comfortable
>> yet decoupling the DBIx modules from the Catalyst framework, but that's =
my
>> next step.
>>
>> Thanks in advance.
>>
>>
>>
>> -Tim
>>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.scsys.co.uk/pipermail/dbix-class/attachments/20120621/4bc=
55e04/attachment-0001.htm
More information about the DBIx-Class
mailing list