Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

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/ContextualFetch.pm line 51, +<GEN2> line 7. at /usr/local/lib/perl5/site_perl/5.8.5/Class/DBI/FromCGI.pm 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)

    MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
    I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
    ** The third rule of perl club is a statement of fact: pod is sexy.

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

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (16)
As of 2014-07-10 09:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (204 votes), past polls