From 5898947d8d6dd0ef1f6385845f253d4cdb6358ca Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Sun, 3 Feb 2013 19:45:22 -0800
Subject: [PATCH] add location to credit application detail, RT#21054

---
 FS/FS/cust_main.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index b2f93c54d..3b2ba3382 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -4100,6 +4100,23 @@ sub country_full {
   code2country($self->country);
 }
 
+=item county_state_county [ PREFIX ]
+
+Returns a string consisting of just the county, state and country.
+
+=cut
+
+sub county_state_country {
+  my $self = shift;
+  my $prefix = (@_ && $_[0]) ? shift : '';
+  my $label = $self->get($prefix.'country');
+  $label = $self->get($prefix.'state'). ", $label"
+    if $self->get($prefix.'state');
+  $label = $self->get($prefix.'county')." County, $label"
+    if $self->get($prefix.'county');
+  $label;
+}
+
 =item geocode DATA_VENDOR
 
 Returns a value for the customer location as encoded by DATA_VENDOR.
-- 
2.20.1