% unless ( $cust_pkg->locationnum ) { (default service address)
% } <% $loc->location_label( 'join_string' => '
', 'escape_function' => \&encode_entities, ) %> % 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 $countrydefault = $opt{'countrydefault'} || 'US'; my $statedefault = $opt{'statedefault'} || ($countrydefault eq 'US' ? 'CA' : ''); my $loc = $cust_pkg->cust_location_or_main; 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, ); }