[svn:dbd-oracle] r10685 - dbd-oracle/branches/array_inout

[byterock]

Author: byterock
Date: Mon Feb  4 16:07:17 2008
New Revision: 10685

Modified:
   dbd-oracle/branches/array_inout/dbdimp.c

Log:


Modified: dbd-oracle/branches/array_inout/dbdimp.c
==============================================================================
--- dbd-oracle/branches/array_inout/dbdimp.c    (original)
+++ dbd-oracle/branches/array_inout/dbdimp.c    Mon Feb  4 16:07:17 2008
@@ -1229,7 +1229,7 @@
     arr=(AV*)(SvRV(phs->sv));
 
     if (trace_level >= 2){
-       PerlIO_printf(DBILOGFP, "dbd_rebind_ph_varchar2_table(): 
array_numstruct=%d\n",
+               PerlIO_printf(DBILOGFP, "dbd_rebind_ph_varchar2_table(): 
array_numstruct=%d\n",
              phs->array_numstruct);
     }
     /* If no number of entries to bind specified,
@@ -1626,7 +1626,7 @@
     arr=(AV*)(SvRV(phs->sv));
 
     if (trace_level >= 2){
-       PerlIO_printf(DBILOGFP, "dbd_rebind_ph_number_table(): 
array_numstruct=%d\n",
+       `PerlIO_printf(DBILOGFP, "dbd_rebind_ph_number_table(): 
array_numstruct=%d\n",
              phs->array_numstruct);
     }
     /* If no number of entries to bind specified,
@@ -2261,8 +2261,8 @@
     ub1 csform;
     ub2 csid;
 
-    if (trace_level <= 5000)
-               PerlIO_printf(DBILOGFP, "\n\n\ndbd_rebind_ph() (1): rebinding 
%s as %s (%s, ftype %d, csid %d, csform %d, inout %d)\n",
+    if (trace_level >= 5)
+               PerlIO_printf(DBILOGFP, "dbd_rebind_ph() (1): rebinding %s as 
%s (%s, ftype %d, csid %d, csform %d, inout %d)\n",
                phs->name, (SvPOK(phs->sv) ? neatsvpv(phs->sv,0) : 
"NULL"),(SvUTF8(phs->sv) ? "is-utf8" : "not-utf8"),
                phs->ftype, phs->csid, phs->csform, phs->is_inout);
 
@@ -2286,12 +2286,11 @@
 
 
     if (done == 2) { /* the dbd_rebind_* did the OCI bind call itself 
successfully */
-               if (trace_level <= 3000)
+               if (trace_level >= 3)
                    PerlIO_printf(DBILOGFP, "       bind %s done with ftype 
%d\n",
                            phs->name, phs->ftype);
                return 1;
     }
-    PerlIO_printf(DBILOGFP, "\n\n\n phs->ftype=%d\n",phs->ftype);
 
     if (done != 1) {
                return 0;        /* the rebind failed   */
@@ -2317,8 +2316,6 @@
                return 0;
     }
     if (at_exec) {
-               PerlIO_printf(DBILOGFP, "OCIBindDynamic_log dbd_phs_out 
phs->bndhp=%d\n",phs->bndhp);
-
                OCIBindDynamic_log(phs->bndhp, imp_sth->errhp,
                    (dvoid *)phs, dbd_phs_in,
                    (dvoid *)phs, dbd_phs_out, status);
@@ -2915,9 +2912,8 @@
     STRLEN len;
 
     int outparams = (imp_sth->out_params_av) ? 
AvFILL(imp_sth->out_params_av)+1 : 0;
-PerlIO_printf(DBILOGFP, "ora_st_execute_array 2Av_Len 
imp_sth->out_params_av=%d\n",av_len(imp_sth->out_params_av));
-   /* if (debug <= 2)*/
- PerlIO_printf(DBILOGFP, " \n\n\n   ora_st_execute_array %s count=%d (%s %s 
%s)...\n",
+    if (debug >= 2)
+               PerlIO_printf(DBILOGFP, "  ora_st_execute_array %s count=%d (%s 
%s %s)...\n",
                       oci_stmt_type_name(imp_sth->stmt_type), exe_count,
                       neatsvpv(tuples,0), neatsvpv(tuples_status,0),
                       neatsvpv(columns, 0));
@@ -2948,7 +2944,6 @@
     } else {
         columns_av = NULL;
     }
-PerlIO_printf(DBILOGFP, "ora_st_execute_array 2\n");
     /* Check the `tuples_status' parameter. */
     if(SvTRUE(tuples_status)) {
         if(!SvROK(tuples_status) || SvTYPE(SvRV(tuples_status)) != SVt_PVAV) {
@@ -2981,11 +2976,8 @@
         phs = safemalloc(param_count*sizeof(*phs));
         memset(phs, 0, param_count*sizeof(*phs));
 
- PerlIO_printf(DBILOGFP, "exe_count = %d\n",exe_count);
-
        for(j = 0; (unsigned int) j < exe_count; j++) {
 
-                        PerlIO_printf(DBILOGFP, "j = %d\n",j);
             sv_p = av_fetch(tuples_av, j, 0);
             if(sv_p == NULL) {
                 Safefree(phs);