diff options
| author | ivan <ivan> | 2006-08-18 10:26:29 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-08-18 10:26:29 +0000 |
| commit | a131a3f3f8872ba175d4e213aac25624616e3b7d (patch) | |
| tree | b34b181a6f4359247c702f8b6fa4ecf6e18a1ec6 /FS | |
| parent | a54563b7d5cbac55d89ddd1f11e6c9a12c46b6f1 (diff) | |
W T F
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_main.pm | 7 |
1 files changed, 5 insertions, 2 deletions
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; |