From: ivan <ivan>
Date: Fri, 18 Aug 2006 10:10:33 +0000 (+0000)
Subject: what's going on with the parameters for skeleton inserts??
X-Git-Tag: BEFORE_FINAL_MASONIZE~22
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=3500f6c6f1c42b39139cdedc12dc96ee5f6b8e57;p=freeside.git

what's going on with the parameters for skeleton inserts??
---

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index a52145b19..59295f3ee 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -540,11 +540,14 @@ sub _copy_skel {
 
     while ( my $row = $sel_sth->fetchrow_hashref ) {
 
-      my $ins_sth =
-        dbh->prepare("INSERT INTO $child_table $ins_columns".
-                     " VALUES $placeholders")
+      my $statement =
+        "INSERT INTO $child_table $ins_columns VALUES $placeholders";
+      my $ins_sth =dbh->prepare($statement)
           or return dbh->errstr;
-      $ins_sth->execute( $destid, map $row->{$_}, @ins_columns )
+      my @param = ( $destid, map $row->{$_}, @ins_columns );
+      warn "    $statement: [ ". join(', ', @param). " ]\n"
+        if $DEBUG > 2;
+      $ins_sth->execute( @param )
         or return $ins_sth->errstr;
 
       #next unless keys %{ $child_tables{$child_table} };