2 <% $contact->line |h %>
5 % if ( ! $cust_pkg->get('cancel')
6 % && $FS::CurrentUser::CurrentUser->access_right('Change customer package')
10 %#XXX ( <%pkg_change_contact_link($cust_pkg)%> )
11 %# % if ( $cust_pkg->contactnum ) {
12 %# ( <%edit_contact_link($cust_pkg->contactnum)%> )
19 my $conf = new FS::Conf;
22 my $cust_pkg = $opt{'cust_pkg'};
24 my $contact = $cust_pkg->contact_obj;
26 sub pkg_change_contact_link {
28 my $pkgpart = $cust_pkg->pkgpart;
29 include( '/elements/popup_link-cust_pkg.html',
31 'action' => $p. "misc/change_pkg.cgi?contactnum=-1",
32 'label' => emt('Change contact'),
33 'actionlabel' => emt('Change'),
34 'cust_pkg' => $cust_pkg,
38 sub edit_contact_link {
39 my $contactnum = shift;
40 include( '/elements/popup_link.html',
41 'action' => $p. "edit/cust_contact.cgi?contactnum=$contactnum",
42 'label' => emt('Edit contact'),
43 'actionlabel' => emt('Edit'),