From a131a3f3f8872ba175d4e213aac25624616e3b7d Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 18 Aug 2006 10:26:29 +0000
Subject: W T F

---
 FS/FS/cust_main.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'FS')

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 73afe2183..b7545dee7 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -532,8 +532,11 @@ sub _copy_skel {
     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;
-- 
cgit v1.2.1