[Rt-commit] r2026 - in DBIx-SearchBuilder/trunk: . SearchBuilder SearchBuilder/Handle

[jesse at bestpractical.com]

Author: jesse
Date: Sat Dec 25 01:42:29 2004
New Revision: 2026

Modified:
   DBIx-SearchBuilder/trunk/   (props changed)
   DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Oracle.pm
   DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm
Log:
 r2508 at hualien:  jesse | 2004-12-25T06:41:35.599320Z
 Oracle blob fixes


Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Oracle.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Oracle.pm	(original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Handle/Oracle.pm	Sat Dec 25 01:42:29 2004
@@ -1,12 +1,12 @@
 # $Header: /home/jesse/DBIx-SearchBuilder/history/SearchBuilder/Handle/Oracle.pm,v 1.14 2002/01/28 06:11:37 jesse Exp $
 
+use strict;
 package DBIx::SearchBuilder::Handle::Oracle;
-use DBIx::SearchBuilder::Handle;
- at ISA = qw(DBIx::SearchBuilder::Handle);
-
-use vars qw($VERSION @ISA $DBIHandle $DEBUG);
+use base qw/DBIx::SearchBuilder::Handle/;
+use DBD::Oracle qw(:ora_types);
+         
+use vars qw($VERSION $DBIHandle $DEBUG);
 
-use strict;
 
 =head1 NAME
 
@@ -191,7 +191,7 @@
     my $field = shift;
     #my $type = shift;
     # Don't assign to key 'value' as it is defined later.
-    return ( { ora_field => $field, ora_type => 112 });    
+    return ( { ora_field => $field, ora_type => ORA_CLOB });    
 }
 
 # }}}

Modified: DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm
==============================================================================
--- DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm	(original)
+++ DBIx-SearchBuilder/trunk/SearchBuilder/Record.pm	Sat Dec 25 01:42:29 2004
@@ -1148,8 +1148,7 @@
         my $ca = $self->_ClassAccessible();
         foreach $key ( keys %attribs ) {
             if ( $ca->{$key}->{'type'} =~ /^(text|longtext|clob|blob|lob)$/i ) {
-                my $bhash =
-                  $self->_Handle->BLOBParams( $key, $ca->{$key}->{'type'} );
+                my $bhash = $self->_Handle->BLOBParams( $key, $ca->{$key}->{'type'} );
                 $bhash->{'value'} = $attribs{$key};
                 $attribs{$key} = $bhash;
             }