httemplate/misc/counties.cgi

   1 %
   2 %
   3 %  my( $state, $country ) = $cgi->param('arg');
   4 %
   5 %  my @counties =
   6 %     sort
   7 %     map { s/[\n\r]//g; $_; }
   8 %     map { $_->county; }
   9 %     qsearch( 'cust_main_county',
  10 %              { 'state'   => $state,
  11 %                'country' => $country,
  12 %              },
  13 %            )
  14 %  ;
  15 %
  16 %
  17 %
  18 [ <% join(', ', map { qq("$_") } @counties) %> ]