diff options
Diffstat (limited to 'httemplate/edit/process/prospect_main.html')
-rw-r--r-- | httemplate/edit/process/prospect_main.html | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/httemplate/edit/process/prospect_main.html b/httemplate/edit/process/prospect_main.html deleted file mode 100644 index ca4dfabfe..000000000 --- a/httemplate/edit/process/prospect_main.html +++ /dev/null @@ -1,39 +0,0 @@ -<% include('elements/process.html', - 'table' => 'prospect_main', - 'args_callback' => $args_callback, - 'agent_virt' => 1, - 'process_o2m' => { - 'table' => 'contact', - 'fields' => \@contact_fields, - }, - 'redirect' => popurl(3). 'view/prospect_main.html?', - ) -%> -<%init> - -my $args_callback = sub { - my( $cgi, $object ) = @_; - - $cgi->param('locationnum') =~ /^(\-?\d*)$/ - or die 'illegal locationnum '. $cgi->param('locationnum'); - my $locationnum = $1; - - return ( 'cust_location' => '' ) unless $locationnum; - - my $cust_location = new FS::cust_location { - map { $_ => scalar($cgi->param($_)) } - qw( address1 address2 city county state zip country ) - }; - - $cust_location->locationnum($locationnum) unless $locationnum == -1; - - ( 'cust_location' => $cust_location ); - -}; - -my @contact_fields = qw( first last title comment emailaddress ); -foreach my $phone_type ( qsearch({table=>'phone_type', order_by=>'weight'}) ) { - push @contact_fields, 'phonetypenum'.$phone_type->phonetypenum; -} - -</%init> |