X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fpart_referral.html;h=9cc32c4594a8b131a5f4136ff291feea447172c5;hb=242bd784a47ba7b36d806d7be9383ff6377c3f15;hp=065d8c1c1262c44a88039d6133afb64165c8e6d5;hpb=15777da47bab33e8f0021e6dd9aa6b434fa9be30;p=freeside.git
diff --git a/httemplate/browse/part_referral.html b/httemplate/browse/part_referral.html
index 065d8c1c1..9cc32c459 100755
--- a/httemplate/browse/part_referral.html
+++ b/httemplate/browse/part_referral.html
@@ -5,54 +5,11 @@ 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);
-%
-%
-
<% include('/elements/table-grid.html') %>
% my $bgcolor1 = '#eeeeee';
% my $bgcolor2 = '#ffffff';
% my $bgcolor = '';
-%
-
Advertising source |
@@ -61,7 +18,7 @@ Where a customer heard about your service. Tracked for informational purposes.
Agent |
% }
- >Customers |
+ >Customers and Packages |
% for my $period ( keys %after ) {
@@ -69,7 +26,7 @@ Where a customer heard about your service. Tracked for informational purposes.
% }
-%
+
%foreach my $part_referral ( FS::part_referral->all_part_referral(1) ) {
%
% if ( $bgcolor eq $bgcolor1 ) {
@@ -79,8 +36,6 @@ Where a customer heard about your service. Tracked for informational purposes.
% }
%
% $a = 0;
-%
-%
@@ -105,34 +60,63 @@ Where a customer heard about your service. Tracked for informational purposes.
<% $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},
+% );
+% $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_cust %> |
+ customers |
+
+
+ <% $num_pkg %> |
+ packages |
+
+
+ |
% }
% }
%
-% $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 |
% 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},
+% );
+% $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_cust %> |
+ customers |
+
+
+ <% $num_pkg %> |
+ packages |
+
+
+ |
- <% $number %> |
% }
@@ -140,8 +124,58 @@ Where a customer heard about your service. Tracked for informational purposes.