[Catalyst] create_related is failing on second time through loop?

[Tim Anderson]

Greetings,

I've been working with Catalyst for about 2 months, and up until yesterday
I was feeling pretty good about my proficiency... long way 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 the
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, 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 429


The code in question:

   #handle user_roles
   my $roles =3D $c->request->params->{'user_role'};  #this is what is desi=
red
   $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...') called
at /usr/local/share/perl5/DBIx/Class/Storage.pm line 111

DBIx::Class::Storage::throw_exception('DBIx::Class::Storage::DBI::Sybase::M=
icrosoft_SQL_Server::Free...',
'Unknown error: execute() returned false, but error flags were...') called
at /usr/local/share/perl5/DBIx/Class/Storage/DBI.pm line 1594

DBIx::Class::Storage::DBI::_dbh_execute('DBIx::Class::Storage::DBI::Sybase:=
: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::Mic=
rosoft_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::Syba=
se::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::Micro=
soft_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::Sybase=
::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(0x4fa079=
0)')
called at /usr/local/share/perl5/DBIx/Class/Relationship/Base.pm line 604

DBIx::Class::Relationship::Base::create_related('Portal::Model::DB::PortalU=
ser=3DHASH(0x533ea78)',
'portal_user_roles', 'HASH(0x4f9b130)') called at
/opt/lms/catalyst/Portal/script/../lib/Portal/Controller/Users.pm line 443

Portal::Controller::Users::save('Portal::Controller::Users=3DHASH(0x4c14790=
)',
'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)') called 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)') called 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(0x4c14790)',
'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)') called 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)') called 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(0x4c14790=
)',
'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)') called 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)') called 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 li=
ne
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(0x=
219e6e8)')
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 this is DBIx-centric, and I will ask the question there too.
 Unfortunately, I'm not comfortable yet decoupling these classes from the
Catalyst framework.

Thanks in advance.



-Tim
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.scsys.co.uk/pipermail/catalyst/attachments/20120619/adb5d=
fb7/attachment.htm