From: ivan Date: Fri, 16 Jan 2004 01:58:29 +0000 (+0000) Subject: add some debugging X-Git-Tag: freeside_1_4_2beta1~308 X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=5b0df44f1c7a37c9a4f190b6d30217f0cd2aef7e;p=freeside.git add some debugging --- diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index 923378b7f..165118571 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -1,7 +1,7 @@ package FS::cust_pkg; use strict; -use vars qw(@ISA $disable_agentcheck); +use vars qw(@ISA $disable_agentcheck $DEBUG); use FS::UID qw( getotaker dbh ); use FS::Record qw( qsearch qsearchs ); use FS::cust_svc; @@ -29,6 +29,8 @@ use Mail::Header; @ISA = qw( FS::Record ); +$DEBUG = 0; + $disable_agentcheck = 0; sub _cache { @@ -718,6 +720,12 @@ sub order { push @{ $svcnum{$cust_svc->getfield('svcpart')} }, $cust_svc; } } + if ( $DEBUG ) { + foreach my $svcpart ( keys %svcnum ) { + warn "initial svcpart $svcpart: existing svcnums ". + join(', ', map { $_->svcnum } @{$svcnum{$svcpart}} ). "\n"; + } + } my @cust_svc; #generate @cust_svc @@ -738,6 +746,13 @@ sub order { ]; } + if ( $DEBUG ) { + foreach my $svcpart ( keys %svcnum ) { + warn "after regular move svcpart $svcpart: existing svcnums ". + join(', ', map { $_->svcnum } @{$svcnum{$svcpart}} ). "\n"; + } + } + #special-case until this can be handled better # move services to new svcparts - even if the svcparts don't match (svcdb # needs to...) @@ -774,7 +789,15 @@ sub order { } } - + + if ( $DEBUG ) { + foreach my $svcpart ( keys %svcnum ) { + warn "after special-case move svcpart $svcpart: existing svcnums ". + join(', ', map { $_->svcnum } @{$svcnum{$svcpart}} ). "\n"; + } + } + + #check for leftover services foreach (keys %svcnum) { next unless @{ $svcnum{$_} };