=item exempt_amount
+=item taxname - if defined, printed on invoices instead of "Tax"
+
=back
=head1 METHODS
sub check {
my $self = shift;
- $self->amount(0) unless $self->amount;
+ $self->exempt_amount(0) unless $self->exempt_amount;
$self->ut_numbern('taxnum')
|| $self->ut_textn('state')
|| $self->ut_text('country')
|| $self->ut_float('tax')
|| $self->ut_textn('taxclass') # ...
- || $self->ut_money('amount')
+ || $self->ut_money('exempt_amount')
+ || $self->ut_textn('taxname')
;
}
my ( $selected_county, $selected_state, $selected_country,
$prefix, $onchange ) = @_;
+ $prefix = '' unless defined $prefix;
+
$countyflag = 0;
# unless ( @cust_main_county ) { #cache
@cust_main_county = qsearch('cust_main_county', {} );
foreach my $c ( @cust_main_county ) {
$countyflag=1 if $c->county;
- push @{$cust_main_county{$c->country}{$c->state}}, $c->county;
+ #push @{$cust_main_county{$c->country}{$c->state}}, $c->county;
+ $cust_main_county{$c->country}{$c->state}{$c->county} = 1;
}
# }
$countyflag=1 if $selected_county;
$script_html .= "\nif ( country == \"$country\" ) {\n";
foreach my $state ( sort keys %{$cust_main_county{$country}} ) {
$script_html .= "\nif ( state == \"$state\" ) {\n";
- foreach my $county ( sort @{$cust_main_county{$country}{$state}} ) {
+ #foreach my $county ( sort @{$cust_main_county{$country}{$state}} ) {
+ foreach my $county ( sort keys %{$cust_main_county{$country}{$state}} ) {
my $text = $county || '(n/a)';
$script_html .=
qq!opt(what.form.${prefix}county, "$county", "$text");\n!;