httemplate/misc/states.cgi

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