projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
99c0907
)
what's going on with the parameters for skeleton inserts??
author
ivan
<ivan>
Fri, 18 Aug 2006 10:10:33 +0000
(10:10 +0000)
committer
ivan
<ivan>
Fri, 18 Aug 2006 10:10:33 +0000
(10:10 +0000)
FS/FS/cust_main.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_main.pm
b/FS/FS/cust_main.pm
index
a52145b
..
59295f3
100644
(file)
--- 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 ) {
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;
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} };
or return $ins_sth->errstr;
#next unless keys %{ $child_tables{$child_table} };