From 3e8cad17fc7fd48d4b622771d6b77c6c136d80f2 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Fri, 15 Nov 2013 14:25:08 -0800 Subject: fix detaching w/cust_main-require_phone, RT#25987 --- httemplate/misc/detach_pkg.html | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) (limited to 'httemplate/misc') diff --git a/httemplate/misc/detach_pkg.html b/httemplate/misc/detach_pkg.html index 64b3e6e3f..366bbac3f 100755 --- a/httemplate/misc/detach_pkg.html +++ b/httemplate/misc/detach_pkg.html @@ -50,9 +50,26 @@ +% if ( $conf->config_bool('cust_main-require_phone') ) { +% #XXX should be sticky on errors +% my $ph_cust_main = FS::cust_main->new({}); +% foreach my $contact_phone ( $cust_contact->contact_phone ) { +% my $t = $contact_phone->typename; +% #countrycodes? interface doesn't parse/take em yet +% $ph_cust_main->daytime( $contact_phone->phonenum ) if $t eq 'Work'; +% $ph_cust_main->night( $contact_phone->phonenum ) if $t eq 'Home'; +% $ph_cust_main->mobile( $contact_phone->phonenum ) if $t eq 'Mobile'; +% $ph_cust_main->fax( $contact_phone->phonenum ) if $t eq 'Fax'; +% } + + <& /elements/tr-cust_main-phones.html, + 'cust_main' => $ph_cust_main, + &> +% } + -%#XXX payment info +%#payment info %#XXX should be sticky on errors... <& /edit/cust_main/billing.html, FS::cust_main->new({}), invoicing_list => [], -- cgit v1.2.1