if ( $tax_location ) {
foreach my $cust_bill_pkg_tax_location ( @$tax_location ) {
$cust_bill_pkg_tax_location->billpkgnum($self->billpkgnum);
- warn $cust_bill_pkg_tax_location;
$error = $cust_bill_pkg_tax_location->insert;
- warn $error;
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
return "error inserting cust_bill_pkg_tax_location: $error";
foreach my $cust_bill_pkg_tax_rate_location ( @$tax_rate_location ) {
$cust_bill_pkg_tax_rate_location->billpkgnum($self->billpkgnum);
$error = $cust_bill_pkg_tax_rate_location->insert;
- warn $error;
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
return "error inserting cust_bill_pkg_tax_rate_location: $error";
if ( $cust_tax_adjustment ) {
$cust_tax_adjustment->billpkgnum($self->billpkgnum);
$error = $cust_tax_adjustment->replace;
- warn $error;
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
return "error replacing cust_tax_adjustment: $error";
sub cust_pkg {
my $self = shift;
- warn "$me $self -> cust_pkg";
+ #warn "$me $self -> cust_pkg"; #carp?
qsearchs( 'cust_pkg', { 'pkgnum' => $self->pkgnum } );
}