X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fpart_referral.html;h=c7374673ff2d9cb175714db41759a7f1e302d911;hb=9054e70201187c69341ddd559350e64ffccdff0f;hp=0e61a908ef5b2af112352217c91d1bfa7cc482ce;hpb=3ce7691203a7737406bf2d4442f7fd84b81f847e;p=freeside.git
diff --git a/httemplate/browse/part_referral.html b/httemplate/browse/part_referral.html
index 0e61a908e..c7374673f 100755
--- a/httemplate/browse/part_referral.html
+++ b/httemplate/browse/part_referral.html
@@ -5,63 +5,31 @@ 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') %>
% my $bgcolor1 = '#eeeeee';
% my $bgcolor2 = '#ffffff';
% my $bgcolor = '';
-%
-
Advertising source |
-% if ( $show_agentnums ) {
+% if ( ! $cgi->param('showdisabled') ) {
+ |
+% }
+
+% if ( $show_agentnums ) {
Agent |
% }
- >Customers |
+ >Customers and Packages |
% for my $period ( keys %after ) {
@@ -69,8 +37,8 @@ Where a customer heard about your service. Tracked for informational purposes.
% }
-%
-%foreach my $part_referral ( FS::part_referral->all_part_referral(1) ) {
+
+%foreach my $part_referral ( FS::part_referral->all_part_referral(1,!scalar($cgi->param('showdisabled'))) ) {
%
% if ( $bgcolor eq $bgcolor1 ) {
% $bgcolor = $bgcolor2;
@@ -79,8 +47,6 @@ Where a customer heard about your service. Tracked for informational purposes.
% }
%
% $a = 0;
-%
-%
@@ -100,42 +66,137 @@ 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},
+% );
+% $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 |
+ 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},
+% );
+% $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 %> |
% }