% unless ( $cust_pkg->locationnum ) { (default service address)
% } <% $loc->get($prefix.'address1') |h %>
% if ( $loc->get($prefix.'address2') !~ /^\s*$/ ) { <% $loc->get($prefix.'address2') |h %>
% } <% $loc->get($prefix.'city') |h %><% $loc->get($prefix.'county') ? ' ('.$loc->get($prefix.'county').' county)' : '' |h %>, <% $loc->get($prefix.'state') |h %>   <% $loc->get($prefix.'zip') |h %>
% if ( $loc->get($prefix.'country') ne $countrydefault ) { <% code2country( $loc->get($prefix.'country') ) %> % } % if ( ! $cust_pkg->get('cancel') % && $FS::CurrentUser::CurrentUser->access_right('Change customer package') % ) % { ( <%pkg_change_location_link($cust_pkg)%> ) % } <%init> my %opt = @_; my $bgcolor = $opt{'bgcolor'}; my $cust_pkg = $opt{'cust_pkg'}; my $part_pkg = $opt{'part_pkg'}; my $countrydefault = $opt{'countrydefault'} || 'US'; my $statedefault = $opt{'statedefault'} || ($countrydefault eq 'US' ? 'CA' : ''); my $loc = $cust_pkg->cust_location_or_main; my $prefix = ( $loc->table eq 'cust_main' && length($loc->ship_last) ) ? 'ship_' : ''; #doh sub pkg_change_location_link { my $cust_pkg = shift; my $pkgpart = $cust_pkg->pkgpart; include( '/elements/popup_link-cust_pkg.html', 'action' => $p. "misc/change_pkg.cgi?locationnum=-1;pkgpart=$pkgpart;". "address1=;address2=;city=;county=;state=$statedefault;". "zip=;country=$countrydefault", 'label' => 'Change location', 'actionlabel' => 'Change', 'cust_pkg' => $cust_pkg, ); }