diff options
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(@_); } |