[Catalyst] ok against sqlite. Not working against Oracle81.Sequence problem.

[David Rio Deiros]

On Mon, Mar 06, 2006 at 02:21:53PM -0800, David Rio Deiros wrote:
> On Mon, Mar 06, 2006 at 02:06:01PM -0800, David Rio Deiros wrote:
> > That made it work. 
> 
> Weird... It seems like if what I insert only remains until I
> shutdown the server.

More information regarding this.

I have tried from an standalone application:

package bcn::DBI;
use base 'Class::DBI::Oracle';
bcn::DBI->connection('dbi:Oracle:orabcn_two', 'login', 'pass');

package bcn::Contest;
use base 'bcn::DBI';
bcn::Contest->table('contest');
bcn::Contest->columns(All => qw/id name recipient_email contact_name marketing_company contact_phone contact_email image_upload/);
bcn::Contest->sequence('contest_id_seq');

my $contest = bcn::Contest->insert({ id => 11, name => 'perl contest' });

foreach my $c (bcn::Contest->retrieve_all) {
    print $c->id, $c->name . "\n";
}

And when I try it:

web2:~/catalyst $ perl ./testDBI.pl 
12perl contest
web2:~/catalyst $ perl ./testDBI.pl 
13perl contest
web2:~/catalyst $ perl ./testDBI.pl 
14perl contest

And I use sqlplus to check the table:

$ sqlplus nbcmv/login at pass

SQL> select id,name from contest;

no rows selected

So DBI is not actually committing the insert.

ARgcccccc!!!!

David