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)%> )
20 my $conf = new FS::Conf;
23 my $cust_pkg = $opt{'cust_pkg'};
25 my $contact = $cust_pkg->contact_obj;
27 sub pkg_change_contact_link {
29 my $pkgpart = $cust_pkg->pkgpart;
30 include( '/elements/popup_link-cust_pkg.html',
32 'action' => $p. "misc/change_pkg.cgi?contactnum=-1",
33 'label' => emt('Change contact'),
34 'actionlabel' => emt('Change'),
35 'cust_pkg' => $cust_pkg,
39 sub edit_contact_link {
40 my $contactnum = shift;
41 include( '/elements/popup_link.html',
42 'action' => $p. "edit/cust_contact.cgi?contactnum=$contactnum",
43 'label' => emt('Edit contact'),
44 'actionlabel' => emt('Edit'),