cvs: php4 /ext/oci8 oci8.c

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);