diff options
| -rw-r--r-- | FS/FS/cust_main.pm | 11 |
1 files changed, 7 insertions, 4 deletions
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} }; |