[svn:dbd-oracle] r14883 - dbd-oracle/branches/new_lobs

Author: byterock
Date: Fri Jun  3 10:02:17 2011
New Revision: 14883

Modified:
   dbd-oracle/branches/new_lobs/dbdimp.c
   dbd-oracle/branches/new_lobs/oci8.c

Log:
a quick fix

Modified: dbd-oracle/branches/new_lobs/dbdimp.c
==============================================================================
--- dbd-oracle/branches/new_lobs/dbdimp.c	(original)
+++ dbd-oracle/branches/new_lobs/dbdimp.c	Fri Jun  3 10:02:17 2011
@@ -2839,7 +2839,7 @@
 		case SQLT_RSET:
 			done = dbd_rebind_ph_rset(sth, imp_sth, phs);
 			break;
-		 case ORA_XMLTYPE:
+		case ORA_XMLTYPE:
 			done = dbd_rebind_ph_xml(sth, imp_sth, phs);
 	 		break;
 		default:
@@ -2894,7 +2894,6 @@
 	/* some/all of the following should perhaps move into dbd_phs_in() */
 
 	csform = phs->csform;
-
 	if (!csform && SvUTF8(phs->sv)) {
 		/* try to default csform to avoid translation through non-unicode */
 		if (CSFORM_IMPLIES_UTF8(SQLCS_IMPLICIT))		/* prefer IMPLICIT */

Modified: dbd-oracle/branches/new_lobs/oci8.c
==============================================================================
--- dbd-oracle/branches/new_lobs/oci8.c	(original)
+++ dbd-oracle/branches/new_lobs/oci8.c	Fri Jun  3 10:02:17 2011
@@ -1590,6 +1590,8 @@
 		}
 		else{
 			phs->ftype = SQLT_CHR;
+			if (phs->csform =1)
+			   phs->csform = 2;
 		}
 		if(SvPOK(phs->sv)){/* just a check to make sure it is not NULL*/
 			phs->maxlen=(long)SvLEN(phs->sv);