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

1 files changed, 0 insertions, 74 deletions

diff --git a/httemplate/search/prospect_main.html b/httemplate/search/prospect_main.html
deleted file mode 100644
index 12e3e1812..000000000
--- a/httemplate/search/prospect_main.html
+++ /dev/null
@@ -1,74 +0,0 @@
-<% include('elements/search.html',
-             'title'         => 'Prospect Search Results',
-             'name_singular' => 'prospect',
-             'query'         => $query,
-             'count_query'   => $count_query,
-             'header'        => [ '#',
-                                  'Prospect',
-                                  'Contact(s)',
-                                ],
-             'fields'        => [ 'prospectnum',
-                                  'company',
-                                  sub {
-                                    my $pm = shift;
-                                    [ map {
-                                            [ { 'data' => $_->line, }, ];
-                                          }
-                                          $pm->contact
-                                    ];
-                                  },
-                                ],
-             'links'         => [ '',
-                                  $link,
-                                  '', #link to contact edit???
-                                ],
-             'agent_virt'    => 1,
-          )
-%>
-<%init>
-
-die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('List prospects');
-
-my %search_hash = ();
-
-#$search_hash{'query'} = $cgi->keywords;
-
-#scalars
-my @scalars = qw (
-  agentnum 
-);
-
-for my $param ( @scalars ) {
-  $search_hash{$param} = scalar( $cgi->param($param) )
-    if $cgi->param($param);
-}
-
-#lists
-#for my $param () {
-#  $search_hash{$param} = [ $cgi->param($param) ];
-#}
-
-# parse dates
-#foreach my $field (qw( signupdate )) {
-#
-#  my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi, $field);
-#
-#  next if $beginning == 0 && $ending == 4294967295;
-#       #or $disable{$cgi->param('status')}->{$field};
-#
-#  $search_hash{$field} = [ $beginning, $ending ];
-#
-#}
-
-my $query = FS::prospect_main->search(\%search_hash);
-my $count_query   = delete($query->{'count_query'});
-#my @extra_headers = @{ delete($query->{'extra_headers'}) };
-#my @extra_fields  = @{ delete($query->{'extra_fields'})  };
-
-my $link = sub {
-  my $prospect_main = shift;
-  [ "${p}view/prospect_main.html?", 'prospectnum' ];
-};
-
-</%init>