summaryrefslogtreecommitdiff
path: root/httemplate/edit/process/prospect_main.html
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/edit/process/prospect_main.html')
-rw-r--r--httemplate/edit/process/prospect_main.html39
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>