From: ivan <ivan>
Date: Mon, 7 Jul 2008 21:07:54 +0000 (+0000)
Subject: add debugging of bind_param statements
X-Git-Tag: root_of_webpay_support~506
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=86bf118b5df60143efbd1e488c4f2825e0d2df2f

add debugging of bind_param statements
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index a27c4bcec..9badd5bef 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -317,6 +317,7 @@ sub qsearch {
     }
 
     if ( $DEBUG > 2 ) {
+      no strict 'refs';
       %TYPE = map { &{"DBI::$_"} => $_ } @{ $DBI::EXPORT_TAGS{sql_types} }
         unless keys %TYPE;
       warn "  bind_param $bind (for field $field), $value, TYPE $TYPE{$TYPE}\n";