diff options
author | ivan <ivan> | 2008-02-20 01:21:15 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-02-20 01:21:15 +0000 |
commit | 1d920e3661c29398763d05c82bbe3a493a19fbae (patch) | |
tree | 31d979a1ccd6559eace6d7f07675ba3176054c86 /FS/FS/Upgrade.pm | |
parent | 70838ab866bfcb2d596ed2ca96bb2c23c6cba5c1 (diff) |
update the tax class editor to enable taxclass adding, RT#2929
Diffstat (limited to 'FS/FS/Upgrade.pm')
-rw-r--r-- | FS/FS/Upgrade.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/FS/FS/Upgrade.pm b/FS/FS/Upgrade.pm index 90e66d8..cb48230 100644 --- a/FS/FS/Upgrade.pm +++ b/FS/FS/Upgrade.pm @@ -49,8 +49,12 @@ sub upgrade { eval "use $class;"; die $@ if $@; - $class->_upgrade_data(%opt) - if $class->can('_upgrade_data'); + if ( $class->can('_upgrade_data') ) { + $class->_upgrade_data(%opt); + } else { + warn "WARNING: asked for upgrade of $table,". + " but FS::$table has no _upgrade_data method\n"; + } # my @records = @{ $data->{$table} }; # @@ -88,6 +92,10 @@ sub upgrade_data { #populate cust_pay.otaker 'cust_pay' => [], + + #populate part_pkg_taxclass for starters + 'part_pkg_taxclass' => [], + ; \%hash; |