Octavian Rasnita wrote:
Hi all,
I have an Oracle table with 2 clob columns and I am trying to add a new record
in it, using:
my $row = $schema->resultset( 'TblName' )->create( {
question => 'This is the first question',
answer => 'Answer 1',
date_time_q => '2012-01-01 00:00:00',
date_time_a => '2012-01-01 10:00:00',
} );
my $result = $schema->resultset( 'Sugestii' )->find( $row->id );
print 'question: ', $result->question, "\n";
print 'answer: ', $result->answer, "\n";
The result is:
question: Answer 1the first question
answer:
It seems that the data is broken. The values for both clob columns are stored
in the first clob column in the table, or better said, the value of the second
column overwrites the value of the first column, so if the value of the second
column is longer than the value of the first column, the first column will
contain just the value of the second column.
And the second column is always empty.
I have searched a lot for helpful information on the net, and I found more web
pages telling very explicitly that an Oracle table can contain just a single
clob column, and many other pages telling also explicitly that an Oracle table
can contain more clob column (and just a single long column...), so I don't
know what's the truth or if it matters.
This code was working before with DBIC but now it is not working anymore...
I am using Perl 5.14.2, DBIC 0.08196, DBD::Oracle 1.38, Oracle 11G under Ubuntu
11.
Do you have any idea what could be the problem? Any solution or workaround?
Crap! I would hazard a guess this is some subtle behavior change in
DBD::Oracle. In any case DBIC needs to move away from using the buggy
blob support in DBD::Oracle, and use the blob OCI calls directly.
Can you please augment the oracle blob test[1] to work with 2 columns
at the time instead of 1 as it is now? Better test coverage (I expect
the tests to fail) will make it easier to implement the necessary
changes.
Thanks!
[1]
http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits/DBIx-Class.git;a=blob;f=t/73oracle.t;h=907c278cd229ab2a58c28b665ca3f356c2471810;hb=HEAD#l374
_______________________________________________
List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
Searchable Archive: http://www.grokbase.com/group/dbix-class@lists.scsys.co.uk
