% unless ( $cust_pkg->locationnum ) { (<% mt('default service address') |h %>)
% } <% $loc->location_label( 'join_string' => '
', 'double_space' => '   ', 'escape_function' => \&encode_entities, 'countrydefault' => $countrydefault, ) %> % if ( $loc->latitude && $loc->longitude ) {
<% $loc->latitude %>, <% $loc->longitude %> <& /elements/coord-links.html, $loc->latitude, $loc->longitude, $opt{'cust_main'}->name_short. ': '. $opt{'part_pkg'}->pkg &> % } % 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' => emt('Change location'), 'actionlabel' => emt('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' => emt('Edit location'), 'actionlabel' => emt('Edit'), ); }