[ <% join(', ', map { qq("$_") } @counties) %> ]
<%init>
-my $DEBUG = 0;
-
my( $state, $country ) = $cgi->param('arg');
-
-warn "fetching counties for $state / $country \n"
- if $DEBUG;
-
-my @counties =
- sort
- map { s/[\n\r]//g; $_; }
- map { $_->county; }
- qsearch( {
- 'select' => 'DISTINCT county',
- 'table' => 'cust_main_county',
- 'hashref' => { 'state' => $state,
- 'country' => $country,
- },
- } )
-;
-
-warn "counties: ". join(', ', map { qq("$_") } @counties). "\n"
- if $DEBUG;
+my @counties = counties($state, $country);
</%init>