X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fpart_referral.html;h=27eb5454266f2d5c110a5c124f8187a7bf27dcac;hb=5e2b0a5efb81642e86f7704a528767c2ea2961ca;hp=0e61a908ef5b2af112352217c91d1bfa7cc482ce;hpb=c8cccb4a92adceb943c635fe62dad0d034462ce0;p=freeside.git
diff --git a/httemplate/browse/part_referral.html b/httemplate/browse/part_referral.html
index 0e61a908e..27eb54542 100755
--- a/httemplate/browse/part_referral.html
+++ b/httemplate/browse/part_referral.html
@@ -1,67 +1,39 @@
-<% include("/elements/header.html","Advertising source Listing" ) %>
+<& /elements/header.html, "Advertising source Listing" &>
Where a customer heard about your service. Tracked for informational purposes.
Add a new advertising source
-%
-% my $today = timelocal(0, 0, 0, (localtime(time))[3..5] );
-% my %after;
-% tie %after, 'Tie::IxHash',
-% 'Today' => 0,
-% 'Yesterday' => 86400, # 60sec * 60min * 24hrs
-% 'Past week' => 518400, # 60sec * 60min * 24hrs * 6days
-% 'Past 30 days' => 2505600, # 60sec * 60min * 24hrs * 29days
-% 'Past 60 days' => 5097600, # 60sec * 60min * 24hrs * 59days
-% 'Past 90 days' => 7689600, # 60sec * 60min * 24hrs * 89days
-% 'Past 6 months' => 15724800, # 60sec * 60min * 24hrs * 182days
-% 'Past year' => 31486000, # 60sec * 60min * 24hrs * 364days
-% 'Total' => $today,
-% ;
-% my %before = (
-% 'Today' => 86400, # 60sec * 60min * 24hrs
-% 'Yesterday' => 0,
-% 'Past week' => 86400, # 60sec * 60min * 24hrs
-% 'Past 30 days' => 86400, # 60sec * 60min * 24hrs
-% 'Past 60 days' => 86400, # 60sec * 60min * 24hrs
-% 'Past 90 days' => 86400, # 60sec * 60min * 24hrs
-% 'Past 6 months' => 86400, # 60sec * 60min * 24hrs
-% 'Past year' => 86400, # 60sec * 60min * 24hrs
-% 'Total' => 86400, # 60sec * 60min * 24hrs
-% );
-%
-% my $curuser = $FS::CurrentUser::CurrentUser;
-%
-% my $statement = "SELECT COUNT(*) FROM h_cust_main
-% WHERE history_action = 'insert'
-% AND refnum = ?
-% AND history_date >= ?
-% AND history_date < ?
-% AND ". $curuser->agentnums_sql;
-% my $sth = dbh->prepare($statement)
-% or die dbh->errstr;
-%
-% my $show_agentnums = scalar($curuser->agentnums);
-%
-%
+<% $cgi->param('showdisabled')
+ ? do { $cgi->param('showdisabled', 0);
+ '( hide disabled advertising sources )'; }
+ : do { $cgi->param('showdisabled', 1);
+ '( show disabled advertising sources )'; }
+%>
-<% include('/elements/table-grid.html') %>
+% ###
+% # Header
+% ###
+
+<& /elements/table-grid.html &>
% my $bgcolor1 = '#eeeeee';
% my $bgcolor2 = '#ffffff';
% my $bgcolor = '';
-%
-
Advertising source |
-% if ( $show_agentnums ) {
+% if ( ! $cgi->param('showdisabled') ) {
+ |
+% }
+
+% if ( $show_agentnums ) {
Agent |
% }
- >Customers |
+ >Prospects, Customers and Packages |
% for my $period ( keys %after ) {
@@ -69,8 +41,12 @@ Where a customer heard about your service. Tracked for informational purposes.
% }
-%
-%foreach my $part_referral ( FS::part_referral->all_part_referral(1) ) {
+
+% ###
+% # Rows
+% ###
+
+%foreach my $part_referral ( FS::part_referral->all_part_referral(1,!scalar($cgi->param('showdisabled'))) ) {
%
% if ( $bgcolor eq $bgcolor1 ) {
% $bgcolor = $bgcolor2;
@@ -79,8 +55,6 @@ Where a customer heard about your service. Tracked for informational purposes.
% }
%
% $a = 0;
-%
-%
@@ -100,42 +74,168 @@ Where a customer heard about your service. Tracked for informational purposes.
% }
<% $part_referral->referral %><% $a ? '' : '' %>
+
+% if ( ! $cgi->param('showdisabled') ) {
+
+ <% $part_referral->disabled
+ ? 'DISABLED'
+ : 'Active'
+ %>
+ |
+% }
+
% if ( $show_agentnums ) {
<% $part_referral->agentnum ? $part_referral->agent->agent : '(global)' %> |
% }
% for my $period ( keys %after ) {
-% $sth->execute( $part_referral->refnum,
-% $today-$after{$period},
-% $today+$before{$period},
-% ) or die $sth->errstr;
-% my $number = $sth->fetchrow_arrayref->[0];
-%
-
- <% $number %> |
+% my @param = ( $part_referral->refnum,
+% $today-$after{$period},
+% $today+$before{$period},
+% );
+% $prospect_sth->execute(@param) or die $prospect_sth->errstr;
+% my $num_prospect = $prospect_sth->fetchrow_arrayref->[0];
+% $cust_sth->execute(@param) or die $cust_sth->errstr;
+% my $num_cust = $cust_sth->fetchrow_arrayref->[0];
+% $pkg_sth->execute(@param) or die $pkg_sth->errstr;
+% my $num_pkg = $pkg_sth->fetchrow_arrayref->[0];
+
+
+
+
+ <% $num_prospect %> |
+ prospects |
+
+
+ <% $num_cust %> |
+ customers |
+
+
+ <% $num_pkg %> |
+ packages |
+
+
+ |
% }
% }
+
+
+% ###
+% # Bottom Totals
+% ###
+
+% $prospect_statement =~ s/AND refnum = \?//;
+% $prospect_sth = dbh->prepare($prospect_statement)
+% or die dbh->errstr;
%
-% $statement =~ s/AND refnum = \?//;
-% $sth = dbh->prepare($statement)
+% $cust_statement =~ s/AND refnum = \?//;
+% $cust_sth = dbh->prepare($cust_statement)
% or die dbh->errstr;
%
+% $pkg_statement =~ s/AND h_pkg_referral\.refnum = \?//;
+% $pkg_sth = dbh->prepare($pkg_statement)
+% or die dbh->errstr;
- Total |
+ param('showdisabled') %>Total |
% for my $period ( keys %after ) {
-% $sth->execute( $today-$after{$period},
-% $today+$before{$period},
-% ) or die $sth->errstr;
-% my $number = $sth->fetchrow_arrayref->[0];
-%
+% my @param = ( $today-$after{$period},
+% $today+$before{$period},
+% );
+% $prospect_sth->execute(@param) or die $prospect_sth->errstr;
+% my $num_prospect = $prospect_sth->fetchrow_arrayref->[0];
+% $cust_sth->execute( @param ) or die $cust_sth->errstr;
+% my $num_cust = $cust_sth->fetchrow_arrayref->[0];
+% $pkg_sth->execute(@param) or die $pkg_sth->errstr;
+% my $num_pkg = $pkg_sth->fetchrow_arrayref->[0];
+
+
+
+
+ <% $num_prospect %> |
+ prospects |
+
+
+ <% $num_cust %> |
+ customers |
+
+
+ <% $num_pkg %> |
+ packages |
+
+
+ |
- <% $number %> |
% }
-