postgreSQL parameter binding broken?

[Bill Kurland]

Is there something broken with parameter binding in DBD::Pg or am I just 
missing something? Code
that worked fine with mysql is broken when run against a postgreSQL 
database. I pulled out the
relevant code and ran it against both DBMS's - works fine in mysql, but 
gives an error against postgreSQL :

ERROR:  ExecAppend: Fail to add null value in not null attribute line_no

Any help is greatly appreciated. Thanks

use DBI ;
use strict;

my($dsn) = "DBI:Pg:dbname=bbreg;host='host'" ;

my $bbreg_h = DBI->connect($dsn,'username','password', {
        PrintError => 0,
        RaiseError => 0
})  ;
unless($bbreg_h){
        print "\a\a\a" ;
        print DBI->errstr . "\tError Number:" . DBI->err ;
        exit;
}

my($dsn2) = "DBI:mysql:bbreg:host2";

my $bbreg2_h = DBI->connect($dsn2,'username','password' , {
                PrintError => 0,
                RaiseError => 0
        })  ;

my $td_sth = $bbreg_h->prepare( "
        INSERT INTO trans_dtl
        (cashier, store, tran_no, line_no, loc, isbn, author, title, price, 
course_no, term, retail )
        VALUES ('username', 5, 1,?, ?, ?, ?, ? , ? , ? , ? , ?)
        ");

$td_sth->bind_param(1,my $line) ;
$td_sth->bind_param(2,my $where) ;
$td_sth->bind_param(3,my $isbn) ;
$td_sth->bind_param(4,my $author) ;
$td_sth->bind_param(5,my $title) ;
$td_sth->bind_param(6,my $price) ;
$td_sth->bind_param(7,my $course_no) ;
$td_sth->bind_param(8,my $term) ;
$td_sth->bind_param(9,my $retail) ;

my $td_sth2 = $bbreg2_h->prepare( "
        INSERT INTO trans_dtl
        (cashier, store, tran_no, line_no, loc, isbn, author, title, price, 
course_no, term, retail )
        VALUES ('username', 5, 1,?, ?, ?, ?, ? , ? , ? , ? , ?)
        ");

$td_sth2->bind_param(1,my $line) ;
$td_sth2->bind_param(2,my $where) ;
$td_sth2->bind_param(3,my $isbn) ;
$td_sth2->bind_param(4,my $author) ;
$td_sth2->bind_param(5,my $title) ;
$td_sth2->bind_param(6,my $price) ;
$td_sth2->bind_param(7,my $course_no) ;
$td_sth2->bind_param(8,my $term) ;
$td_sth2->bind_param(9,my $retail) ;

my @prompts = qw( Location:  ISBN:  Author: Title: Price: Course: Term: 
Retail:) ;
my @history ;
my $cnt = 0;
my $max = shift ;

while(){
        my @line ;
        push @line, ($cnt) ;
        foreach my $prompt (@prompts){
                print "Enter " . $prompt ;
                while(<>){
                        chomp ;
                        print "$_\n";
                        push @line, ($_) ;
                        last;
                }
        }
        unshift @history, \@line ;
        $cnt++ ;
        last if  $cnt > $max  ;
}

foreach my $line_no (@history){
        ($line,$where,$isbn,$author,$title,$price,$course_no,$term,$retail) = 
@$line_no ;
        print   join ':', 
($line,$where,$isbn,$author,$title,$price,$course_no,$term,$retail), 
"\n" ;
        $td_sth->execute() or  warn DBI->errstr(), "\n";
        $td_sth2->execute() or  warn DBI->errstr(), "\n";
}
$bbreg_h->disconnect() ;
$bbreg2_h->disconnect() ;

The client is running under  Windows NT.
Active State Perl version 5.6.0 built for MSWin32-x86-multi-thread
DBI      v1.23
DBD::Pg v0.95
DBD::mysql   1.2200

According to ppm, these are the latest available versions.


Bill Kurland
Shakespeare & Co.
138 Watts Street
New York, NY 10013
212.965.9683 x814
212.965.9884 fax
[EMAIL PROTECTED]