From: Ivan Kohler Date: Mon, 4 Feb 2013 03:45:14 +0000 (-0800) Subject: add location to credit application detail, RT#21054 X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=34697ae9ceec5c656a44b4c3ed8bfba29b39eea6;p=freeside.git add location to credit application detail, RT#21054 --- diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index eb2cd4dec..be910c6a9 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -4085,15 +4085,34 @@ sub ship_contact_firstlast { $contact->get('first') . ' '. $contact->get('last'); } -=item country_full +#XXX this doesn't work in 3.x+ +#=item country_full +# +#Returns this customer's full country name +# +#=cut +# +#sub country_full { +# my $self = shift; +# code2country($self->country); +#} -Returns this customer's full country name +=item county_state_county [ PREFIX ] + +Returns a string consisting of just the county, state and country. =cut -sub country_full { +sub county_state_country { my $self = shift; - code2country($self->country); + my $locationnum; + if ( @_ && $_[0] && $self->has_ship_address ) { + $locationnum = $self->ship_locationnum; + } else { + $locationnum = $self->bill_locationnum; + } + my $cust_location = qsearchs('cust_location', { locationnum=>$locationnum }); + $cust_location->county_state_country; } =item geocode DATA_VENDOR