% if ( $contact ) {
    <% $contact->line |h %>
% if ( $show_change_link && ! $opt{no_links} ) {
        <FONT SIZE=-1>
          (&nbsp;<%pkg_change_contact_link($cust_pkg)%>&nbsp;)
        </FONT>
% }
% if ( $show_detach_link && ! $opt{no_links} ) {
        <FONT SIZE=-1>
          (&nbsp;<%pkg_detach_link($cust_pkg)%>&nbsp;)
        </FONT>
%    }
    <BR>
% }
<%init>

my %opt = @_;

my $cust_pkg       = $opt{'cust_pkg'};

my $show_change_link = 
  ! $cust_pkg->get('cancel')
  && $FS::CurrentUser::CurrentUser->access_right('Change customer package');

my $show_detach_link =
  ! $cust_pkg->get('cancel')
  && $FS::CurrentUser::CurrentUser->access_right('Detach customer package');

my $contact = $cust_pkg->contact_obj;

sub pkg_change_contact_link {
  my $cust_pkg = shift;
  #my $pkgpart = $cust_pkg->pkgpart;
  include( '/elements/popup_link-cust_pkg.html',
    'action'      => $p. "misc/change_pkg_contact.html",
    'label'       => emt('Change'), # contact'),
    'actionlabel' => emt('Change'),
    'cust_pkg'    => $cust_pkg,
    'width'       => 616,
    'height'      => 220,
  );
}

sub pkg_detach_link {
  my $cust_pkg = shift;
  #my $pkgpart = $cust_pkg->pkgpart;
  include( '/elements/popup_link-cust_pkg.html',
    'action'      => $p. "misc/detach_pkg.html",
    'label'       => emt('Detach'),
    'actionlabel' => emt('Detach'),
    'cust_pkg'    => $cust_pkg,
    'width'       => 616,
    'height'      => 720,
  );
}

#sub edit_contact_link {
#  my $contactnum = shift;
#  include( '/elements/popup_link.html',
#    'action'      => $p. "edit/cust_contact.cgi?contactnum=$contactnum",
#    'label'       => emt('Edit contact'),
#    'actionlabel' => emt('Edit'),
#  );
#}

</%init>