develooper Front page | perl.dbi.users | Postings from March 2012

Re: Error I've not seen before from oracle DBD

Thread Previous
From:
Bruce Johnson
Date:
March 29, 2012 13:59
Subject:
Re: Error I've not seen before from oracle DBD
Message ID:
E7E4B1F5-B13D-4AF9-AEAB-AA70C6720378@pharmacy.arizona.edu

On Mar 29, 2012, at 1:46 PM, Bruce Johnson wrote:

> Can't mix placeholder styles (:foo/?) at /usr/local/lib64/perl5/DBD/Oracle.pm line 329., referer: https://resource-scheduler.pharmacy.arizona.edu/calendar/reserve.pl
> 

Commenting out this section code gets rid of the error, so I know this is the offending section. What is causing this error? The code looks right to me.

> my $sq_res_pend = "insert into reservations_pend (pid, email, cn, purpose, reserver_affstring) values(:1,:2,:3,:4,:5) returning reservations_pend_id into :NEWID";
> 
> my $csr_res_pend = $lda->prepare($sq_res_pend) or die $DBI::errstr;
> $csr_res_pend->bind_param(':1',$res_pid) or die $DBI::errstr;
> $csr_res_pend->bind_param(':2',$res_email) or die $DBI::errstr;
> $csr_res_pend->bind_param(':3',$res_name) or die $DBI::errstr;
> $csr_res_pend->bind_param(':4',$res_purp) or die $DBI::errstr;
> $csr_res_pend->bind_param(':5',$res_affil) or die $DBI::errstr;
> $csr_res_pend->bind_param_inout(":NEWID",\$new_res_id, 25) or die $DBI::errstr;
> 
> $csr_res_pend->execute();

-- 
Bruce Johnson
University of Arizona
College of Pharmacy
Information Technology Group

Institutions do not have opinions, merely customs



Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About