diff options
author | jeff <jeff> | 2009-06-01 05:43:11 +0000 |
---|---|---|
committer | jeff <jeff> | 2009-06-01 05:43:11 +0000 |
commit | bc521ca75f4189ebd6d927aa263bdcce500150a5 (patch) | |
tree | b2776ec054e715083c56570c98076ca3a190281d /FS/FS/part_pkg_taxproduct.pm | |
parent | bbac9227cd1dc41358fdad933997a113373d3e49 (diff) |
a 'start over' function for the taxproduct based tax data loading
Diffstat (limited to 'FS/FS/part_pkg_taxproduct.pm')
-rw-r--r-- | FS/FS/part_pkg_taxproduct.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/FS/FS/part_pkg_taxproduct.pm b/FS/FS/part_pkg_taxproduct.pm index c66fb8c..56e63b6 100644 --- a/FS/FS/part_pkg_taxproduct.pm +++ b/FS/FS/part_pkg_taxproduct.pm @@ -1,10 +1,11 @@ package FS::part_pkg_taxproduct; use strict; -use vars qw( @ISA ); +use vars qw( @ISA $delete_kludge ); use FS::Record qw( qsearch ); @ISA = qw(FS::Record); +$delete_kludge = 0; =head1 NAME @@ -85,8 +86,10 @@ sub delete { return "Can't delete a tax product which has attached package tax rates!" if qsearch( 'part_pkg_taxrate', { 'taxproductnum' => $self->taxproductnum } ); - return "Can't delete a tax product which has attached packages!" - if qsearch( 'part_pkg', { 'taxproductnum' => $self->taxproductnum } ); + unless ( $delete_kludge ) { + return "Can't delete a tax product which has attached packages!" + if qsearch( 'part_pkg', { 'taxproductnum' => $self->taxproductnum } ); + } $self->SUPER::delete(@_); } |