[freeside-commits] freeside/httemplate/search prospect_main.html, NONE, 1.1 report_prospect_main.html, NONE, 1.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/httemplate/search
In directory wavetail.420.am:/tmp/cvs-serv11618/httemplate/search

Added Files:
	prospect_main.html report_prospect_main.html 
Log Message:
beginning of prospect/CRM/contact work

--- NEW FILE: report_prospect_main.html ---
<% include('/elements/header.html', 'Prospect Report' ) %>

<FORM ACTION="prospect_main.html" METHOD="GET">

  <TABLE BGCOLOR="#cccccc" CELLSPACING=0>

    <TR>
      <TH BGCOLOR="#e8e8e8" COLSPAN=2 ALIGN="left"><FONT SIZE="+1">Search options</FONT></TH>
    </TR>

    <% include( '/elements/tr-select-agent.html',
                  'curr_value'    => scalar($cgi->param('agentnum')),
                  'disable_empty' => 0,
               )
    %>

  </TABLE>

<BR>
<INPUT TYPE="submit" VALUE="Get Report">

</FORM>

<% include('/elements/footer.html') %>
<%init>

die "access denied"
  unless $FS::CurrentUser::CurrentUser->access_right('List prospects');

my $conf = new FS::Conf;

</%init>

--- NEW FILE: prospect_main.html ---
<% 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>