expand country to specify a country's tax rates by state.
-
Click on expand state to specify a state's tax rates by county.
-END
-
-if ( $enable_taxclasses ) {
- print '
Click on expand taxclasses to specify tax classes';
+my $money_char = $conf->config('money_char') || '$';
+
+my @manual_countries = ( 'US', 'CA', 'AU', 'NZ', 'GB' ); #some manual ordering
+my @all_countries = ( @manual_countries,
+ grep { my $c = $_; ! grep { $c eq $_ } @manual_countries }
+ map { $_->country }
+ qsearch({
+ 'select' => 'country',
+ 'table' => 'cust_main_county',
+ 'hashref' => {},
+ 'extra_sql' => 'GROUP BY country',
+ })
+ );
+
+my $exempt_sub = sub {
+ my $cust_main_county = shift;
+
+ my @exempt = ();
+ push @exempt,
+ sprintf("$money_char%.2f per month", $cust_main_county->exempt_amount )
+ if $cust_main_county->exempt_amount > 0;
+
+ push @exempt, 'Setup fee'
+ if $cust_main_county->setuptax =~ /^Y$/i;
+
+ push @exempt, 'Recurring fee'
+ if $cust_main_county->recurtax =~ /^Y$/i;
+
+ [ map [ {'data'=>$_} ], @exempt ];
+};
+
+my $oldrow;
+my $cell_style;
+my $cell_style_sub = sub {
+ my $row = shift;
+ if ( $oldrow ne $row ) {
+ if ( $oldrow ) {
+ if ( $oldrow->country ne $row->country ) {
+ $cell_style = 'border-top:1px solid #000000';
+ } elsif ( $oldrow->state ne $row->state ) {
+ $cell_style = 'border-top:1px solid #cccccc'; #default?
+ } elsif ( $oldrow->state eq $row->state ) {
+ #$cell_style = 'border-top:dashed 1px dark gray';
+ $cell_style = 'border-top:1px dashed #cccccc';
+ }
+ }
+ $oldrow = $row;
+ }
+ return $cell_style;
+};
+
+#my $edit_link = [ "${p}edit/cust_main_county.html", 'taxnum' ];
+my $edit_link = [ 'javascript:void(0);', sub { ''; } ];
+
+my $edit_onclick = sub {
+ my $row = shift;
+ my $taxnum = $row->taxnum;
+ my $color = '#333399';
+ qq!overlib( OLiframeContent('${p}edit/cust_main_county.html?$taxnum', 540, 420, 'edit_cust_main_county_popup' ), CAPTION, 'Edit tax rate', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK, BGCOLOR, '$color', CGCOLOR, '$color' ); return false;!;
+};
+
+sub expand_link {
+ my( $row, $desc, %opt ) = @_;
+ my $taxnum = $row->taxnum;
+ $taxnum = "taxclass$taxnum" if $opt{'taxclass'};
+ my $color = '#333399';
+ qq!!;
}
-print '
'. &table(). <
- Country |
- State |
- County |
- Taxclass (per-package classification) |
- Tax name (printed on invoices) |
- Tax |
- Exemption |
-
-END
-
-my @regions = sort { $a->country cmp $b->country
- or $a->state cmp $b->state
- or $a->county cmp $b->county
- or $a->taxclass cmp $b->taxclass
- } qsearch('cust_main_county',{});
-
-my $sup=0;
-#foreach $cust_main_county ( @regions ) {
-for ( my $i=0; $i<@regions; $i++ ) {
- my $cust_main_county = $regions[$i];
- my $hashref = $cust_main_county->hashref;
- print <
- $hashref->{country} |
-END
-
- my $j;
- if ( $sup ) {
- $sup--;
- } else {
-
- #lookahead
- for ( $j=1; $i+$j<@regions; $j++ ) {
- last if $hashref->{country} ne $regions[$i+$j]->country
- || $hashref->{state} ne $regions[$i+$j]->state
- || $hashref->{tax} != $regions[$i+$j]->tax
- || $hashref->{exempt_amount} != $regions[$i+$j]->exempt_amount
- || $hashref->{setuptax} ne $regions[$i+$j]->setuptax
- || $hashref->{recurtax} ne $regions[$i+$j]->recurtax;
- }
+%once>
+<%init>
- my $newsup=0;
- if ( $j>1 && $i+$j+1 < @regions
- && ( $hashref->{state} ne $regions[$i+$j+1]->state
- || $hashref->{country} ne $regions[$i+$j+1]->country
- )
- && ( ! $i
- || $hashref->{state} ne $regions[$i-1]->state
- || $hashref->{country} ne $regions[$i-1]->country
- )
- ) {
- $sup = $j-1;
- } else {
- $j = 1;
- }
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
- print "{state}
- ? ' BGCOLOR="#ffffff">'. $hashref->{state}
- : qq! BGCOLOR="#cccccc">(ALL) !.
- qq!expand country!;
+#my $conf = new FS::Conf;
+#my $money_char = $conf->config('money_char') || '$';
+my $enable_taxclasses = $conf->exists('enable_taxclasses');
- print qq! collapse state! if $j>1;
+my $html_init =
+ "Click on add states to specify a country's tax rates by state or province.
+ Click on add counties to specify a state's tax rates by county.";
+$html_init .= " Click on add taxclasses to specify tax classes."
+ if $enable_taxclasses;
+$html_init .= '
';
+
+$html_init .= qq(
+
+
+
+
+);
+
+my $filter_country = '';
+if ( $cgi->param('filter_country') =~ /^(\w\w)$/ ) {
+ $filter_country = $1;
+}
+$cgi->delete('filter_country');
+$cgi->param('dummy', 1);
+
+my $country_filter_change =
+ "window.location = '".
+ $cgi->self_url. ";filter_country=' + this.options[this.selectedIndex].value;";
+
+my $html_posttotal =
+ '(show country: '.
+ qq()';
+
+my $hashref = {};
+my $count_query = 'SELECT COUNT(*) FROM cust_main_county';
+if ( $filter_country ) {
+ $hashref->{'country'} = $filter_country;
+ $count_query .= " WHERE country = '$filter_country'";
+}
- print " | ";
- }
+$cell_style = '';
+
+my @header = ( 'Country', 'State/Province', 'County',);
+my @header2 = ( '', '', '', );
+my @links = ( '', '', '', );
+my @link_onclicks = ( '', '', '', );
+my $align = 'lll';
+
+my @fields = (
+ sub { my $country = shift->country;
+ code2country($country). " ($country)";
+ },
+ sub { state_label($_[0]->state, $_[0]->country).
+ ( $_[0]->state
+ ? ''
+ : ' '. expand_link($_[0], 'Add States').
+ 'add states'
+ )
+ },
+ sub { $_[0]->county || '(all) '.
+ expand_link($_[0], 'Add Counties').
+ 'add counties'
+ },
+);
+
+my @color = (
+ '000000',
+ sub { shift->state ? '000000' : '999999' },
+ sub { shift->county ? '000000' : '999999' },
+);
+
+if ( $conf->exists('enable_taxclasses') ) {
+ push @header, 'Tax class';
+ push @header2, '(per-package classification)';
+ push @fields, sub { $_[0]->taxclass || '(all) '.
+ expand_link($_[0], 'Add Taxclasses', 'taxclass'=>1).
+ 'add taxclasses'
+ };
+ push @color, sub { shift->taxclass ? '000000' : '999999' };
+ push @links, '';
+ push @link_onclicks, '';
+ $align .= 'l';
+}
-# $sup=$newsup;
-
- print "{county} ) {
- print ' BGCOLOR="#ffffff">'. $hashref->{county};
- } else {
- print ' BGCOLOR="#cccccc">(ALL)';
- if ( $hashref->{state} ) {
- print qq!!.
- qq!expand state!;
- }
- }
- print " | ";
-
- print "{taxclass} ) {
- print ' BGCOLOR="#ffffff">'. $hashref->{taxclass};
- } else {
- print ' BGCOLOR="#cccccc">(ALL)';
- if ( $enable_taxclasses ) {
- print qq!!.
- qq!expand taxclasses!;
- }
+push @header, 'Tax name',
+ 'Rate', #'Tax',
+ 'Exemptions',
+ ;
- }
- print " | ";
+push @header2, '(printed on invoices)',
+ '',
+ '',
+ ;
- print "{taxname} ) {
- print ' BGCOLOR="#ffffff">'. $hashref->{taxname};
- } else {
- print ' BGCOLOR="#cccccc">Tax';
- }
- print " | ";
+push @fields,
+ sub { shift->taxname || 'Tax' },
+ sub { shift->tax. '% (edit)' },
+ $exempt_sub,
+;
- print "$hashref->{tax}% | ".
- '';
- print '$'. sprintf("%.2f", $hashref->{exempt_amount} ).
- ' per month '
- if $hashref->{exempt_amount} > 0;
- print 'Setup fee ' if $hashref->{setuptax} =~ /^Y$/i;
- print 'Recurring fee ' if $hashref->{recurtax} =~ /^Y$/i;
- print ' | ';
+push @color,
+ sub { shift->taxname ? '000000' : '666666' },
+ sub { shift->tax ? '000000' : '666666' },
+ '000000',
+;
-}
+$align .= 'lrl';
-print <
-