Re: Class::DBI::Relationship::IsA issues with create()

[prev] [thread] [next] [Date index for 2005/02/25]

s/is_a/has_a/ ? I assume that's what you meant, maybe it was just a typo
in your message. Anyway, you'll also need to add to TestDBIsA::Person:

TestDBIsA::Person->has_many( artists => 'TestDBIsA::Artist' );

Does that help?

David

On Fri, Feb 25, 2005 at 05:52:18PM +0000, jldommer@xxxx.xxxxx.xxx wrote:
> Hi all,
> 
> I am using 'Class::DBI::Relationship::IsA' on a simple test database, and have run into problems with create().  I've set it up with a base class that establishes a connection to my database, and then I've set up the classes for the individual tables and declared the 'is_a' relationship.
> 
> #Base class
> package TestDBIsA::ClassDBI;
> use base qw(Class::DBI);
> use strict;
> use warnings;
> 
> my $dbh = TestDBIsA::ClassDBI->connection($dsn, $user, $password)|| die "Database connection not made: $DBI::errstr";
> 
> 
> #Tables
> package TestDBIsA::Person;
> use base qw(TestDBIsA::ClassDBI);
> 
> package TestDBIsA::Artist;
> use base qw(TestDBIsA::ClassDBI);
> 
> TestDBIsA::Artist->is_a( 'pid' => 'TestDBIsA::Person' );
> 
> 
> I have run some simple tests and everything seems to be working with the exception of create().  I have found that I can call create() on my parent, 'Person', and everything works fine, but that when I call it on my child, 'Artist', I get an error message.
> 
> TestDBIsA::Artist->create( {
>   artistid => 81,
>   alias => 'Manet',
>   pid => 2
>   }
> );
> 
> Can't insert new TestDBIsA::Person: DBD::Oracle::st execute failed:
> ORA-01400:
> cannot insert NULL into ("JLDOMMER"."PERSON"."PERSONID") (DBD ERROR:
> OCIStmtExecute) [for Statement "INSERT INTO person (personid)
> VALUES (?)
> "] at /usr/lib/perl5/site_perl/5.8.0/DBIx/ContextualFetch.pm line 51.
>  at /usr/lib/perl5/site_perl/5.8.0/Class/DBI/Relationship/IsA.pm line
> 257
> 
> I'm not sure what I've done wrong.  Does anyone have any thoughts?
> 
> Jennifer Dommer