% unless ( $cust_pkg->locationnum ) { (default service address)
% } <% $loc->location_label( 'join_string' => '
', 'double_space' => '   ', 'escape_function' => \&encode_entities, 'countrydefault' => $countrydefault, ) %> % unless ( $cust_pkg->locationnum ) {
% } % if ( ! $cust_pkg->get('cancel') % && $FS::CurrentUser::CurrentUser->access_right('Change customer package') % ) % { ( <%pkg_change_location_link($cust_pkg)%> ) % if ( $cust_pkg->locationnum ) {  ( <%edit_location_link($cust_pkg->locationnum)%> ) % } % } <%init> my $conf = new FS::Conf; 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, ); } sub edit_location_link { my $locationnum = shift; include( '/elements/popup_link.html', 'action' => $p. "edit/cust_location.cgi?locationnum=$locationnum", 'label' => 'Edit location', 'actionlabel' => 'Edit', ); }