diff options
| author | ivan <ivan> | 2006-08-18 10:18:13 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2006-08-18 10:18:13 +0000 |
| commit | a54563b7d5cbac55d89ddd1f11e6c9a12c46b6f1 (patch) | |
| tree | 9015c02f290b522e5f9a2a9d4c6ab9921b5c22ef | |
| parent | 3500f6c6f1c42b39139cdedc12dc96ee5f6b8e57 (diff) | |
even more skeleton debugging, ugh
| -rw-r--r-- | FS/FS/cust_main.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 59295f3ee..73afe2183 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -540,6 +540,10 @@ sub _copy_skel { while ( my $row = $sel_sth->fetchrow_hashref ) { + warn " selected row: ". + join(', ', map { "$_=".$row->{$_} } keys %$row ). "\n" + if $DEBUG > 2; + my $statement = "INSERT INTO $child_table $ins_columns VALUES $placeholders"; my $ins_sth =dbh->prepare($statement) |