[Zope-Checkins] CVS: Products/DCOracle2/src - dco2.c:1.94

Matthew T. Kromer matt@zope.com
Mon, 15 Oct 2001 13:37:09 -0400


Update of /cvs-repository/Products/DCOracle2/src
In directory cvs.zope.org:/tmp/cvs-serv7550/src

Modified Files:
	dco2.c 
Log Message:
Update to only do BindArrayOfStruct when processing a PL/SQL BEGIN statement


=== Products/DCOracle2/src/dco2.c 1.93 => 1.94 ===
 		if (status != OCI_SUCCESS)
 			return RaiseOCIError(self->sc->errhp, OCI_HTYPE_ERROR);
-	} else if (self->bind[pos].flags & BIND_ARRAY_COLUMN) { /*static bind*/
+	} else if (self->bind[pos].flags & BIND_ARRAY_COLUMN
+		&& self->type == OCI_STMT_BEGIN) { /*static bind*/
 		BindingArrayObject *bao = self->bind[pos].u.p;
-
 		TRACE(T_CALL,("sd","OCIBindArrayOfStruct", bao->ba->itemsize));
 
 		status = OCIBindArrayOfStruct(self->bind[pos].bindp, 
@@ -2893,7 +2893,6 @@
 
 		if (status != OCI_SUCCESS)
 			return RaiseOCIError(self->sc->errhp, OCI_HTYPE_ERROR);
-
 	}
 	
 	
@@ -5451,6 +5450,8 @@
 		if (bindvalue == NULL) bindvalue = value;
 	} else bindvalue = value;
 	
+
+	mybind.dty = bao->dty;
 
 	/*
 	** To avoid duplicating code, we actually call bindObject to let