[freeside-commits] freeside/FS/FS cust_main.pm,1.231,1.232

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv20252

Modified Files:
	cust_main.pm 
Log Message:
W T F

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.231
retrieving revision 1.232
diff -u -d -r1.231 -r1.232
--- cust_main.pm	18 Aug 2006 10:18:13 -0000	1.231
+++ cust_main.pm	18 Aug 2006 10:26:29 -0000	1.232
@@ -532,8 +532,11 @@
     my $ins_columns = ' ( '. join(', ', $primary_key, @ins_columns ). ' ) ';
     my $placeholders = ' ( ?, '. join(', ', map '?', @ins_columns ). ' ) ';
 
-    my $sel_sth = dbh->prepare( "SELECT $sel_columns FROM $child_table".
-                                " WHERE $primary_key = $sourceid")
+    my $sel_st = "SELECT $sel_columns FROM $child_table".
+                 " WHERE $primary_key = $sourceid";
+    warn "    $sel_st\n"
+      if $DEBUG > 2;
+    my $sel_sth = dbh->prepare( $sel_st )
       or return dbh->errstr;
   
     $sel_sth->execute or return $sel_sth->errstr;