+$cell_style = '';
+
+my @header = ( 'Country', 'State/Province', 'County', 'City', '' );
+# last column is 'district', but usually unused
+my @header2 = ( '', '', '', '', '' );
+my @links = ( '', '', '', '', '' );
+my @link_onclicks = ( '', '', '', '', '' );
+my $align = 'lllll';
+
+my %seen_country = ();
+my %seen_state = ();
+my %seen_county = ();
+
+my @fields = (
+ sub { my $country = shift->country;
+ return '' if $seen_country{$country}++;
+ FS::geocode_Mixin->code2country($country). " ($country)";
+ },
+
+ #state
+ sub { my $label = $seen_state{$_[0]->country}->{$_[0]->state}++
+ ? '' : state_label($_[0]->state, $_[0]->country);
+
+ my $countylinks = ( $_[0]->county && $label )
+ ? ' '. add_link(
+ desc => 'Add more counties',
+ col => 'state',
+ label=> 'add more counties',
+ row => $_[0],
+ cgi => $cgi,
+ ).
+ ' '. collapse_link(
+ col => 'state',
+ label=> 'remove all counties',
+ row => $_[0],
+ cgi => $cgi,
+ )
+ : '';
+
+ my $addlink =
+ ( $_[0]->state
+ ? ''
+ : ' '. expand_link( desc => 'Add States',
+ row => $_[0],
+ label => 'add states',
+ cgi => $cgi,
+ )
+ );
+
+ $label.$countylinks.$addlink;
+ },
+
+ #county
+ sub { my $label =
+ $seen_county{$_[0]->country}->{$_[0]->state}->{$_[0]->county}++
+ ? '' : $_[0]->county;
+
+ my $citylinks = '';
+ if ( $label ) {
+ $citylinks = $_[0]->city
+ ? ' '. add_link(
+ desc => 'Add more cities',
+ col => 'county',
+ label=> 'add more cities',
+ row => $_[0],
+ cgi => $cgi,
+ ).
+ ' '. collapse_link(
+ col => 'county',
+ label=> 'remove all cities',
+ row => $_[0],
+ cgi => $cgi,
+ )
+ : ' '. remove_link( col => 'county',
+ label=> 'remove county',
+ row => $_[0],
+ cgi => $cgi,
+ );
+ }
+
+ $_[0]->county
+ ? $label.$citylinks
+ : '(all) '.
+ expand_link( desc => 'Add Counties',
+ row => $_[0],
+ label => 'add counties',
+ cgi => $cgi,
+ );
+ },
+
+ #city
+ sub {
+ my $r = shift;
+ if ( $r->city ) {
+
+ if ( $r->taxclass #but if it has a taxclass, can't remove
+ or $r->district ) { # or a district
+ $r->city;
+ } else {
+ $r->city. ' '.
+ remove_link( col => 'city',
+ label=> 'remove city',
+ row => $r,
+ cgi => $cgi,
+ );
+ }
+ } else {
+ '(all) '.
+ expand_link( desc => 'Add Cities',
+ row => $r,
+ label => 'add cities',
+ cgi => $cgi,
+ );
+ }
+ },
+
+ #district
+ sub {
+ my $r = shift;
+ if ( $r->district ) {
+ $r->district . ' '.
+ remove_link( col => 'district',
+ label=> 'remove district',
+ row => $r,
+ cgi => $cgi,
+ );
+ }
+ # manually editing districts is not exactly intended
+ },
+
+);
+
+my @color = (
+ '000000',
+ sub { shift->state ? '000000' : '999999' },
+ sub { shift->county ? '000000' : '999999' },
+ sub { shift->city ? '000000' : '999999' },
+);
+
+if ( $conf->exists('enable_taxclasses') ) {
+ push @header, qq!Tax class (<A HREF="${p}edit/part_pkg_taxclass.html">add new</A>)!;
+ push @header2, '(per-package classification)';
+ push @fields, sub {
+ my $r = shift;
+ if ( $r->taxclass ) {
+ $r->taxclass;
+ } else {
+ my $sql = 'SELECT COUNT(*) FROM cust_main_county
+ WHERE country = ? AND state = ? AND county = ?
+ AND city = ? AND taxclass IS NOT NULL';
+ if ( FS::Record->scalar_sql($sql, map $r->$_,
+ qw( country state county city) ) ) {
+ '(none)';
+ } else {
+ '(all) '.
+ separate_taxclasses_link($r, 'Separate Taxclasses').
+ 'separate taxclasses</A></FONT>';
+ }
+ }
+ };
+ push @color, sub { shift->taxclass ? '000000' : '999999' };
+ push @links, '';
+ push @link_onclicks, '';
+ $align .= 'l';
+}
+
+push @header,
+ '', #checkbox column
+ 'Tax name',
+ 'Rate', #'Tax',
+ 'Exemptions',
+ ;
+
+push @header2,
+ '',
+ '(printed on invoices)',
+ '',
+ '',
+ ;
+
+my $newregion = 1;
+my $cb_oldrow = '';
+my $cb_sub = sub {
+ my $cust_main_county = shift;
+
+ if ( $cb_oldrow ) {
+ if ( $cb_oldrow->district ne $cust_main_county->district
+ || $cb_oldrow->city ne $cust_main_county->city
+ || $cb_oldrow->county ne $cust_main_county->county
+ || $cb_oldrow->state ne $cust_main_county->state
+ || $cb_oldrow->country ne $cust_main_county->country
+ || $cb_oldrow->taxclass ne $cust_main_county->taxclass )
+ {
+ $newregion = 1;
+ } else {
+ $newregion = 0;
+ }
+
+ } else {
+ $newregion = 1;
+ }
+ $cb_oldrow = $cust_main_county;
+
+ if ( $newregion ) {
+ my $taxnum = $cust_main_county->taxnum;
+ qq!<INPUT NAME="cust_main_county$taxnum" TYPE="checkbox" VALUE="1">!;
+ } else {
+ '';
+ }
+};
+
+push @fields,
+ $cb_sub,
+ sub { shift->taxname || 'Tax' },
+ sub { shift->tax. '% <FONT SIZE="-1">(edit)</FONT>' },
+ $exempt_sub,
+;
+
+push @color,
+ '000000',
+ sub { shift->taxname ? '000000' : '666666' },
+ sub { shift->tax ? '000000' : '666666' },
+ '000000',
+;
+
+$align .= 'clrl';
+
+my @cell_style = map $cell_style_sub, (1..scalar(@header));
+
+push @links, '', '', $edit_link, '';
+push @link_onclicks, '', '', $edit_onclick, '';
+
+</%init>