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

[Matthew T. Kromer]

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

Modified Files:
	dco2.c 
Log Message:
Add public synonym enablement re Collector #58 (Uwe Hoffman)


=== Products/DCOracle2/src/dco2.c 1.114 => 1.115 ===
--- Products/DCOracle2/src/dco2.c:1.114	Wed Jul 31 09:35:22 2002
+++ Products/DCOracle2/src/dco2.c	Fri Aug 16 10:10:52 2002
@@ -2290,6 +2290,7 @@
 	sword	status;
 	OCIDescribe *deschp = NULL;
 	OCIParam *parmh = NULL;
+	long 	one = 1;
 
 	if (!PyArg_ParseTuple(args,"s#",&name,&namelen))
 		return NULL;	/* String arg	*/
@@ -2304,6 +2305,17 @@
 
 	if (status != OCI_SUCCESS) 
 		return RaiseOCIError(self->envhp, OCI_HTYPE_ERROR);
+
+	/* Public synonym enablemement */
+	TRACE(T_HCALL,("ssAs", "OCIAttrSet", "OCI_HTYPE_DESCRIBE",
+		self->svchp, "OCI_ATTR_DESC_PUBLIC"));
+	status = OCIAttrSet(deschp, OCI_HTYPE_DESCRIBE,
+		(dvoid *) &one, (ub4) 4, OCI_ATTR_DESC_PUBLIC, self->errhp);
+	TRACE(T_HRETURN,("sR", "OCIAttrSet", status));
+
+	if (status != OCI_SUCCESS) 
+		return RaiseOCIError(self->envhp, OCI_HTYPE_ERROR);
+
 
 	TRACE(T_CALL,("sSsA", "OCIDescribeAny", name, "OCI_PTYPE_UNK",
 		deschp));