httemplate/misc/counties.cgi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

%
%
%  my( $state, $country ) = $cgi->param('arg');
%
%  my @counties = 
%     sort
%     map { s/[\n\r]//g; $_; }
%     map { $_->county; }
%     qsearch( 'cust_main_county',
%              { 'state'   => $state,
%                'country' => $country,
%              },
%            )
%  ;
%
%
%
[ <% join(', ', map { qq("$_") } @counties) %> ]