Beefy Boxes and Bandwidth Generously Provided by pair Networks Bob
Perl: the Markov chain saw

Problem creating a row with a manually specified primary key via CDBI::FromCGI

by Booger (Pilgrim)
on Oct 09, 2004 at 19:44 UTC ( #397897=perlquestion: print w/ replies, xml ) Need Help??
Booger has asked for the wisdom of the Perl Monks concerning the following question:

Hello folks:

I'm using MySQL and have some tables where I can't use auto_increment on the primary keys (for some weird reason I won't bother to explain) and want to control the sequence of said primary keys manually.

Ex: a user submits a form having a couple of input fields and I receive them in a hash $r->{params} (yes - I'm using Maypole).

The piece of code that creates a new row in the database according to the form data looks something like this:

$r->{params}{$self->primary_columns} = &some_value; $h = CGI::Untaint->new(%{$r->{params}}); $obj = $self->create_from_cgi($h);

Which to me, looks fine.

Apparently it's not.

Whenever this portion of code gets executed I receive the following error:

Can't insert new Library::Book: DBD::mysql::st execute failed: Column 'id' cannot be null [for Statement "INSERT INTO book (name, aut +hor, id) VALUES (?, ?, ?)"] at /usr/local/lib/perl5/site_perl/5.8.5/DBIx/ line 51, +<GEN2> line 7. at /usr/local/lib/perl5/site_perl/5.8.5/Class/DBI/ line 246

I've searched and searched and can't seem to discover what exactly is causing the manually set primary key to be ignored.

Any suggestions or comments would be greatly appreciated. Thanks!

Comment on Problem creating a row with a manually specified primary key via CDBI::FromCGI
Select or Download Code
Re: Problem creating a row with a manually specified primary key via CDBI::FromCGI
by PodMaster (Abbot) on Oct 10, 2004 at 13:29 UTC
    What is in $r->{params}? (use Data::Dumper to explain)


      Thanks for the suggestion PodMaker... the problem turned out to be the result of some custom work I'd done elsewhere... *sigh*.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://397897]
Approved by Arunbear
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (2)
As of 2014-03-14 00:45 GMT
Find Nodes?
    Voting Booth?

    Have you used a cryptocurrency?

    Results (293 votes), past polls