diff options
author | Mark Wells <mark@freeside.biz> | 2016-11-07 16:24:16 -0800 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2016-11-07 16:26:05 -0800 |
commit | dc4e882662ac72279c008d47903a3978cf227f72 (patch) | |
tree | f69e53c3a1532ed60e828b9dab7730018b1f60ea /FS/FS/part_pkg_taxclass.pm | |
parent | 52c4764eafbb02a1ee74f983ece53b07306e1dde (diff) |
revise process for updating WA sales taxes, #73185 and #73226
Conflicts:
FS/FS/Conf.pm
Diffstat (limited to 'FS/FS/part_pkg_taxclass.pm')
-rw-r--r-- | FS/FS/part_pkg_taxclass.pm | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/FS/FS/part_pkg_taxclass.pm b/FS/FS/part_pkg_taxclass.pm index 055c778ba..d8ddb1512 100644 --- a/FS/FS/part_pkg_taxclass.pm +++ b/FS/FS/part_pkg_taxclass.pm @@ -4,7 +4,7 @@ use strict; use vars qw( @ISA ); use Scalar::Util qw( blessed ); use FS::UID qw( dbh ); -use FS::Record; # qw( qsearch qsearchs ); +use FS::Record qw(qsearch); # qsearchs ); use FS::cust_main_county; @ISA = qw(FS::Record); @@ -219,6 +219,26 @@ sub _upgrade_data { # class method } +=head1 CLASS METHODS + +=over 4 + +=item taxclass_names + +Returns a list of all the non-disabled tax classes. If tax classes aren't +enabled, returns a single empty string. + +=cut + +sub taxclass_names { + if ( FS::Conf->new->exists('enable_taxclasses') ) { + return map { $_->get('taxclass') } + qsearch('part_pkg_taxclass', { disabled => '' }); + } else { + return ( '' ); + } +} + =head1 BUGS Other tables (cust_main_county, part_pkg, agent_payment_gateway) have a text |