diff options
author | ivan <ivan> | 2007-10-04 18:28:55 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-10-04 18:28:55 +0000 |
commit | 8031d0cdfc2d79715dfd05152cefbeb2eb639a66 (patch) | |
tree | db042ed368875a6da9e89a31f79191c712114b85 /FS/FS | |
parent | 90bfc79cd7d73d0378a114e7f279d55130094253 (diff) |
additional due_cust_event debugging
Diffstat (limited to 'FS/FS')
-rw-r--r-- | FS/FS/cust_main.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index a8a9ae43b..5e3b2e8d8 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1595,8 +1595,8 @@ sub ncancelled_pkgs { } else { - warn "$me ncancelled_pkgs: searching for packages for custnum ". - $self->custnum + warn "$me ncancelled_pkgs: searching for packages with custnum ". + $self->custnum. "\n" if $DEBUG > 1; @cust_pkg = @@ -2627,6 +2627,7 @@ sub due_cust_event { $extra_sql .= " $order"; my @part_event = qsearch( { + 'debug' => ( $opt{'debug'} > 3 ? 1 : 0 ), 'select' => 'part_event.*', 'table' => 'part_event', 'addl_from' => "$cross $join", @@ -2648,7 +2649,7 @@ sub due_cust_event { } warn " ". scalar(@e_cust_event). - " subtotal possible cust events found for $eventtable" + " subtotal possible cust events found for $eventtable\n" if $DEBUG > 1; push @cust_event, @e_cust_event; |