This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9

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>