[freeside-commits] freeside/FS/FS cust_pkg.pm, 1.179.2.15, 1.179.2.16

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv16948

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	cust_pkg.pm 
Log Message:
add more debug tracing to invoice generation, RT#11452

Index: cust_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pkg.pm,v
retrieving revision 1.179.2.15
retrieving revision 1.179.2.16
diff -u -w -d -r1.179.2.15 -r1.179.2.16
--- cust_pkg.pm	20 Jan 2011 05:23:23 -0000	1.179.2.15
+++ cust_pkg.pm	5 Feb 2011 05:18:44 -0000	1.179.2.16
@@ -1766,6 +1766,9 @@
 
 sub h_cust_svc {
   my $self = shift;
+  warn "$me _h_cust_svc called on $self\n"
+    if $DEBUG > 1;
+
   my ($end, $start, $mode) = @_;
   my @cust_svc = $self->_sort_cust_svc(
     [ qsearch( 'h_cust_svc',
@@ -1776,8 +1779,7 @@
   if ( $mode eq 'I' ) {
     my %hidden_svcpart = map { $_->svcpart => $_->hidden } $self->part_svc;
     return grep { !$hidden_svcpart{$_->svcpart} } @cust_svc;
-  }
-  else {
+  } else {
     return @cust_svc;
   }
 }
@@ -2119,6 +2121,8 @@
 
 sub h_labels {
   my $self = shift;
+  warn "$me _h_labels called on $self\n"
+    if $DEBUG > 1;
   map { [ $_->label(@_) ] } $self->h_cust_svc(@_);
 }
 
@@ -2151,13 +2155,23 @@
 sub _labels_short {
   my( $self, $method ) = ( shift, shift );
 
+  warn "$me _labels_short called on $self with $method method\n"
+    if $DEBUG > 1;
+
   my $conf = new FS::Conf;
   my $max_same_services = $conf->config('cust_bill-max_same_services') || 5;
 
+  warn "$me _labels_short populating \%labels\n"
+    if $DEBUG > 1;
+
   my %labels;
   #tie %labels, 'Tie::IxHash';
   push @{ $labels{$_->[0]} }, $_->[1]
     foreach $self->$method(@_);
+
+  warn "$me _labels_short populating \@labels\n"
+    if $DEBUG > 1;
+
   my @labels;
   foreach my $label ( keys %labels ) {
     my %seen = ();