1 files changed, 18 insertions, 0 deletions
diff --git a/httemplate/misc/counties.cgi b/httemplate/misc/counties.cgi
new file mode 100644
index 000000000..c9eb98500
--- /dev/null
+++ b/httemplate/misc/counties.cgi
@@ -0,0 +1,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) %> ]