X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fprospect_main.html;h=6aefe80d0cb6d01304d9c668a15cc3c1ae9fcf95;hp=c8c8e98e11bab7f2660ffd25be7c505a563b6f5b;hb=7e9422a954e8249627c256b53080ee6afeeed913;hpb=fb4ab1073f0d15d660c6cdc4e07afebf68ef3924 diff --git a/httemplate/edit/prospect_main.html b/httemplate/edit/prospect_main.html index c8c8e98e1..6aefe80d0 100644 --- a/httemplate/edit/prospect_main.html +++ b/httemplate/edit/prospect_main.html @@ -1,17 +1,25 @@ <% include('elements/edit.html', 'name_singular' => 'prospect', 'table' => 'prospect_main', + 'html_table_class'=> 'fsinnerbox', 'labels' => { 'prospectnum' => 'Prospect', 'agentnum' => 'Agent', + 'refnum' => 'Advertising source', 'company' => 'Company', 'contactnum' => 'Contact', 'locationnum' => ' ', + 'taxstatusnum'=> 'Tax status', }, 'fields' => [ { 'field' => 'agentnum', 'type' => 'select-agent', 'empty_label' => 'Select agent', - 'colspan' => 6, + 'colspan' => 7, + }, + { 'field' => 'refnum', + 'type' => 'select-part_referral', + 'empty_label' => 'Select advertising source', + 'colspan' => 7, }, { 'field' => 'residential_commercial', 'type' => 'radio', @@ -21,13 +29,15 @@ { 'field' => 'company', 'type' => 'text', 'size' => 50, - 'colspan' => 6, + 'colspan' => 7, }, { 'field' => 'contactnum', 'type' => 'contact', - 'colspan' => 6, - 'o2m_table' => 'contact', - 'm2_label' => 'Contact', + 'colspan' => 7, + 'prospectnum' => $prospectnum, + 'm2m_method' => 'prospect_contact', + 'm2m_dstcol' => 'contactnum', + 'm2_label' => 'Contact', 'm2_error_callback' => $m2_error_callback, }, @@ -36,6 +46,14 @@ 'empty_label' => 'No address', 'disable_empty' => $conf->exists('prospect_main-location_required'), 'alt_format' => $conf->exists('prospect_main-alt_address_format'), + 'include_opt_callback' => sub { + 'prospect_main' => shift + }, + }, + { 'field' => 'taxstatusnum', + 'type' => 'select-tax_status', + 'required' => 1, + 'empty_label' => ' ', }, ], 'new_callback' => $new_callback, @@ -53,18 +71,25 @@ my $conf = new FS::Conf; my $prospectnum; if ( $cgi->param('error') ) { - $prospectnum = scalar($cgi->param('prospectnum')); + $cgi->param('prospectnum') =~ /^(\d*)$/ or die 'illegal prospectnum'; + $prospectnum = $1; die "access denied" unless $curuser->access_right(($prospectnum ? 'Edit' : 'New'). ' prospect'); } elsif ( $cgi->keywords ) { #editing + my($query) = $cgi->keywords; + $query =~ /^(\d+)$/ or die 'no prospectnum'; + $prospectnum = $1; + die "access denied" unless $curuser->access_right('Edit prospect'); } else { #new prospect + $prospectnum = ''; + die "access denied" unless $curuser->access_right('New prospect');