maxim Mon Jan 27 14:52:11 2003 EDT
Modified files:
/php4/ext/oci8 oci8.c
Log:
@- Fixed bug #17448 (Print the message when OCI_SUCCESS_WITH_INFO is returned).
(Maxim)
Index: php4/ext/oci8/oci8.c
diff -u php4/ext/oci8/oci8.c:1.201 php4/ext/oci8/oci8.c:1.202
--- php4/ext/oci8/oci8.c:1.201 Sun Jan 19 03:32:22 2003
+++ php4/ext/oci8/oci8.c Mon Jan 27 14:52:11 2003
@@ -20,7 +20,7 @@
+----------------------------------------------------------------------+
*/
-/* $Id: oci8.c,v 1.201 2003/01/19 08:32:22 iliaa Exp $ */
+/* $Id: oci8.c,v 1.202 2003/01/27 19:52:11 maxim Exp $ */
/* TODO list:
*
@@ -640,7 +640,7 @@
php_info_print_table_start();
php_info_print_table_row(2, "OCI8 Support", "enabled");
- php_info_print_table_row(2, "Revision", "$Revision: 1.201 $");
+ php_info_print_table_row(2, "Revision", "$Revision: 1.202 $");
#ifndef PHP_WIN32
php_info_print_table_row(2, "Oracle Version", PHP_OCI8_VERSION );
php_info_print_table_row(2, "Compile-time ORACLE_HOME", PHP_OCI8_DIR );
@@ -974,7 +974,16 @@
case OCI_SUCCESS:
break;
case OCI_SUCCESS_WITH_INFO:
- php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s:
OCI_SUCCESS_WITH_INFO", what);
+ CALL_OCI(OCIErrorGet(
+ err_p,
+ (ub4)1,
+ NULL,
+ &errcode,
+ errbuf,
+ (ub4)sizeof(errbuf),
+ (ub4)OCI_HTYPE_ERROR));
+
+ php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s:
+OCI_SUCCESS_WITH_INFO: %s", what, errbuf);
break;
case OCI_NEED_DATA:
php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s: OCI_NEED_DATA", what);
--
PHP CVS Mailing List (http://www.php.net/)
To unsubscribe, visit: http://www.php.net/unsub.php
