diff options
author | jeff <jeff> | 2009-03-18 15:11:03 +0000 |
---|---|---|
committer | jeff <jeff> | 2009-03-18 15:11:03 +0000 |
commit | b8a433b04fc02ae5b246be8f05a0d3b4f8b79d18 (patch) | |
tree | 7124640215c0996b5cb918df5bf58c22e5cfde41 /FS/FS/part_pkg_taxrate.pm | |
parent | 037c3acd250f637182019d0a74361d5420f29c52 (diff) |
more error information
Diffstat (limited to 'FS/FS/part_pkg_taxrate.pm')
-rw-r--r-- | FS/FS/part_pkg_taxrate.pm | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/FS/FS/part_pkg_taxrate.pm b/FS/FS/part_pkg_taxrate.pm index 6d1414a..197bf0f 100644 --- a/FS/FS/part_pkg_taxrate.pm +++ b/FS/FS/part_pkg_taxrate.pm @@ -295,10 +295,18 @@ sub batch_import { delete($hash->{actionflag}); my $part_pkg_taxrate = qsearchs('part_pkg_taxrate', $hash); - return "Can't find part_pkg_taxrate to delete: ". - #join(" ", map { "$_ => ". $hash->{$_} } @fields) - join(" ", map { "$_ => *". $hash->{$_}. '*' } keys(%$hash) ) - unless $part_pkg_taxrate; + unless ( $part_pkg_taxrate ) { + if ( $hash->{taxproductnum} ) { + my $taxproduct = + qsearchs( 'part_pkg_taxproduct', + { 'taxproductnum' => $hash->{taxproductnum} } + ); + $hash->{taxproductnum} .= ' ( '. $taxproduct->taxproduct. ' )' + if $taxproduct; + } + return "Can't find part_pkg_taxrate to delete: ". + join(" ", map { "$_ => *". $hash->{$_}. '*' } keys(%$hash) ); + } my $error = $part_pkg_taxrate->delete; return $error if $error; |