summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJonathan Prykop <jonathan@freeside.biz>2017-01-04 06:01:59 -0600
committerJonathan Prykop <jonathan@freeside.biz>2017-01-04 06:01:59 -0600
commitd8c62f08bf358948859491abe97532bb89a18859 (patch)
tree5c1e29e822c303834717c378136e49f7550db274
parentb843454941061c79410d2b0efc8da5124e1021e2 (diff)
42396: Prospect creation without contact (v4+) [hide fields prospect doesn't use]
-rw-r--r--httemplate/edit/prospect_main.html2
-rw-r--r--httemplate/elements/contact.html16
2 files changed, 13 insertions, 5 deletions
diff --git a/httemplate/edit/prospect_main.html b/httemplate/edit/prospect_main.html
index 6aefe80d0..1e055783e 100644
--- a/httemplate/edit/prospect_main.html
+++ b/httemplate/edit/prospect_main.html
@@ -39,7 +39,7 @@
'm2m_dstcol' => 'contactnum',
'm2_label' => 'Contact',
'm2_error_callback' => $m2_error_callback,
-
+ 'include_opt_callback' => sub { 'for_prospect' => 1 },
},
{ 'field' => 'locationnum',
'type' => 'select-cust_location',
diff --git a/httemplate/elements/contact.html b/httemplate/elements/contact.html
index 3fbcc0518..b0a7caca1 100644
--- a/httemplate/elements/contact.html
+++ b/httemplate/elements/contact.html
@@ -126,12 +126,17 @@ if ( $curr_value ) {
'contactnum' => $curr_value,
'prospectnum' => $opt{'prospectnum'},
});
+ $opt{'for_prospect'} = 1;
} else {
die 'neither custnum nor prospectnum specified';
}
} else {
$contact = new FS::contact {};
- $X_contact = new FS::cust_contact; #arbitrary, it could be prospect_contact
+ if ($opt{'for_prospect'}) {
+ $X_contact = new FS::prospect_contact;
+ } else {
+ $X_contact = new FS::cust_contact;
+ }
}
my %size = ( 'title' => 12 );
@@ -140,11 +145,14 @@ tie my %label, 'Tie::IxHash',
'first' => 'First name',
'last' => 'Last name',
'title' => 'Title/Position',
- 'emailaddress' => 'Email',
- 'invoice_dest' => 'Send invoices',
- 'selfservice_access' => 'Self-service'
+ 'emailaddress' => 'Email'
;
+unless ($opt{'for_prospect'}) {
+ $label{'invoice_dest'} = 'Send invoices';
+ $label{'selfservice_access'} = 'Self-service';
+}
+
my $first = 0;
foreach my $phone_type ( qsearch({table=>'phone_type', order_by=>'weight'}) ) {
next if $phone_type->typename =~ /^(Home|Fax)$/;