httemplate/misc/counties.cgi


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

<%

  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) %> ]