From 51984ac3d3da3006809c6866fdecd4ad83610731 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 30 Jul 2001 07:36:04 +0000
Subject: templates!!!

---
 httemplate/browse/part_referral.cgi | 92 +++++++++++++++++++++++++++++++++++++
 1 file changed, 92 insertions(+)
 create mode 100755 httemplate/browse/part_referral.cgi

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
new file mode 100755
index 000000000..408d63003
--- /dev/null
+++ b/httemplate/browse/part_referral.cgi
@@ -0,0 +1,92 @@
+<%
+#
+# $Id: part_referral.cgi,v 1.1 2001-07-30 07:36:03 ivan Exp $
+#
+# ivan@sisd.com 98-feb-23 
+#
+# Changes to allow page to work at a relative position in server
+#	bmccane@maxbaud.net	98-apr-3
+#
+# lose background, FS::CGI ivan@sisd.com 98-sep-2
+#
+# $Log: part_referral.cgi,v $
+# Revision 1.1  2001-07-30 07:36:03  ivan
+# templates!!!
+#
+# Revision 1.9  1999/04/09 04:22:34  ivan
+# also table()
+#
+# Revision 1.8  1999/04/09 03:52:55  ivan
+# explicit & for table/itable/ntable
+#
+# Revision 1.7  1999/01/19 05:13:28  ivan
+# for mod_perl: no more top-level my() variables; use vars instead
+# also the last s/create/new/;
+#
+# Revision 1.6  1999/01/18 09:41:18  ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.5  1998/12/17 05:25:20  ivan
+# fix visual and other bugs
+#
+# Revision 1.4  1998/12/17 04:32:55  ivan
+# print $cgi->header
+#
+# Revision 1.3  1998/12/17 04:31:36  ivan
+# use CGI::Carp
+#
+# Revision 1.2  1998/12/17 04:26:04  ivan
+# use CGI; no relative URLs
+#
+
+use strict;
+use vars qw( $cgi $p $part_referral );
+use CGI;
+use CGI::Carp qw(fatalsToBrowser);
+use FS::UID qw(cgisuidsetup swapuid);
+use FS::Record qw(qsearch);
+use FS::CGI qw(header menubar popurl table);
+use FS::part_referral;
+
+$cgi = new CGI;
+
+&cgisuidsetup($cgi);
+
+$p = popurl(2);
+
+print $cgi->header( '-expires' => 'now' ), header("Referral Listing", menubar(
+  'Main Menu' => $p,
+#  'Add new referral' => "../edit/part_referral.cgi",
+)), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", &table(), <<END;
+      <TR>
+        <TH COLSPAN=2>Referral</TH>
+      </TR>
+END
+
+foreach $part_referral ( sort { 
+  $a->getfield('refnum') <=> $b->getfield('refnum')
+} qsearch('part_referral',{}) ) {
+  my($hashref)=$part_referral->hashref;
+  print <<END;
+      <TR>
+        <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}">
+          $hashref->{refnum}</A></TD>
+        <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}">
+          $hashref->{referral}</A></TD>
+      </TR>
+END
+
+}
+
+print <<END;
+      <TR>
+        <TD COLSPAN=2><A HREF="${p}edit/part_referral.cgi"><I>Add new referral</I></A></TD>
+      </TR>
+    </TABLE>
+    </CENTER>
+  </BODY>
+</HTML>
+END
+
+%>
-- 
cgit v1.2.1


From 3d671921441ba8422650b54435a1959ad1d4c71d Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 21 Aug 2001 02:31:57 +0000
Subject: remove $Log$ messages.  whew.

---
 httemplate/browse/part_referral.cgi | 41 +------------------------------------
 1 file changed, 1 insertion(+), 40 deletions(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 408d63003..8c2e26321 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -1,44 +1,5 @@
 <%
-#
-# $Id: part_referral.cgi,v 1.1 2001-07-30 07:36:03 ivan Exp $
-#
-# ivan@sisd.com 98-feb-23 
-#
-# Changes to allow page to work at a relative position in server
-#	bmccane@maxbaud.net	98-apr-3
-#
-# lose background, FS::CGI ivan@sisd.com 98-sep-2
-#
-# $Log: part_referral.cgi,v $
-# Revision 1.1  2001-07-30 07:36:03  ivan
-# templates!!!
-#
-# Revision 1.9  1999/04/09 04:22:34  ivan
-# also table()
-#
-# Revision 1.8  1999/04/09 03:52:55  ivan
-# explicit & for table/itable/ntable
-#
-# Revision 1.7  1999/01/19 05:13:28  ivan
-# for mod_perl: no more top-level my() variables; use vars instead
-# also the last s/create/new/;
-#
-# Revision 1.6  1999/01/18 09:41:18  ivan
-# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
-# (good idea anyway)
-#
-# Revision 1.5  1998/12/17 05:25:20  ivan
-# fix visual and other bugs
-#
-# Revision 1.4  1998/12/17 04:32:55  ivan
-# print $cgi->header
-#
-# Revision 1.3  1998/12/17 04:31:36  ivan
-# use CGI::Carp
-#
-# Revision 1.2  1998/12/17 04:26:04  ivan
-# use CGI; no relative URLs
-#
+#<!-- $Id: part_referral.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ -->
 
 use strict;
 use vars qw( $cgi $p $part_referral );
-- 
cgit v1.2.1


From 6ef34dda51afba96d8dc6c4dd72427c3d4003945 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 21 Aug 2001 09:34:13 +0000
Subject: no more &swapuid

---
 httemplate/browse/part_referral.cgi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 8c2e26321..ed3b7a0e4 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -1,11 +1,11 @@
 <%
-#<!-- $Id: part_referral.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ -->
+#<!-- $Id: part_referral.cgi,v 1.3 2001-08-21 09:34:13 ivan Exp $ -->
 
 use strict;
 use vars qw( $cgi $p $part_referral );
 use CGI;
 use CGI::Carp qw(fatalsToBrowser);
-use FS::UID qw(cgisuidsetup swapuid);
+use FS::UID qw(cgisuidsetup);
 use FS::Record qw(qsearch);
 use FS::CGI qw(header menubar popurl table);
 use FS::part_referral;
-- 
cgit v1.2.1


From 1e4aa8069f25e1b4101da20bb9e0d3f60357ea52 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 4 Sep 2001 14:44:07 +0000
Subject: new admin documentation, quick one-pkg order

---
 httemplate/browse/part_referral.cgi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index ed3b7a0e4..f283ad419 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -1,5 +1,5 @@
 <%
-#<!-- $Id: part_referral.cgi,v 1.3 2001-08-21 09:34:13 ivan Exp $ -->
+#<!-- $Id: part_referral.cgi,v 1.4 2001-09-04 14:44:06 ivan Exp $ -->
 
 use strict;
 use vars qw( $cgi $p $part_referral );
@@ -42,7 +42,7 @@ END
 
 print <<END;
       <TR>
-        <TD COLSPAN=2><A HREF="${p}edit/part_referral.cgi"><I>Add new referral</I></A></TD>
+        <TD COLSPAN=2><A HREF="${p}edit/part_referral.cgi"><I>Add a new referral</I></A></TD>
       </TR>
     </TABLE>
     </CENTER>
-- 
cgit v1.2.1


From 91387f8f489e561deaf1de052d80ef800a4970a3 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 26 Oct 2001 10:24:56 +0000
Subject: cache foo *sigh*

---
 httemplate/browse/part_referral.cgi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index f283ad419..6481b6668 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -1,5 +1,5 @@
 <%
-#<!-- $Id: part_referral.cgi,v 1.4 2001-09-04 14:44:06 ivan Exp $ -->
+#<!-- $Id: part_referral.cgi,v 1.5 2001-10-26 10:24:56 ivan Exp $ -->
 
 use strict;
 use vars qw( $cgi $p $part_referral );
@@ -16,7 +16,7 @@ $cgi = new CGI;
 
 $p = popurl(2);
 
-print $cgi->header( '-expires' => 'now' ), header("Referral Listing", menubar(
+print $cgi->header( @FS::CGI::header ), header("Referral Listing", menubar(
   'Main Menu' => $p,
 #  'Add new referral' => "../edit/part_referral.cgi",
 )), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", &table(), <<END;
-- 
cgit v1.2.1


From c14a267229fc0d6f2d2afdebab3bd34d825df2ef Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 30 Oct 2001 14:54:07 +0000
Subject: get rid of header foo in individual templates

---
 httemplate/browse/part_referral.cgi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 6481b6668..b82d4cba0 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -1,5 +1,5 @@
 <%
-#<!-- $Id: part_referral.cgi,v 1.5 2001-10-26 10:24:56 ivan Exp $ -->
+#<!-- $Id: part_referral.cgi,v 1.6 2001-10-30 14:54:07 ivan Exp $ -->
 
 use strict;
 use vars qw( $cgi $p $part_referral );
@@ -16,7 +16,7 @@ $cgi = new CGI;
 
 $p = popurl(2);
 
-print $cgi->header( @FS::CGI::header ), header("Referral Listing", menubar(
+print header("Referral Listing", menubar(
   'Main Menu' => $p,
 #  'Add new referral' => "../edit/part_referral.cgi",
 )), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", &table(), <<END;
-- 
cgit v1.2.1


From 1fd6d8cf5d7854860ef4fd10ed89828e0c04ec39 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 30 Jan 2002 14:18:09 +0000
Subject: remove   use Module; and   $cgi = new CGI;   &cgisuidsetup(); from
 all templates.  should work better under Mason.

---
 httemplate/browse/part_referral.cgi | 19 ++-----------------
 1 file changed, 2 insertions(+), 17 deletions(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index b82d4cba0..82f42924f 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -1,20 +1,5 @@
+<!-- $Id: part_referral.cgi,v 1.7 2002-01-30 14:18:08 ivan Exp $ -->
 <%
-#<!-- $Id: part_referral.cgi,v 1.6 2001-10-30 14:54:07 ivan Exp $ -->
-
-use strict;
-use vars qw( $cgi $p $part_referral );
-use CGI;
-use CGI::Carp qw(fatalsToBrowser);
-use FS::UID qw(cgisuidsetup);
-use FS::Record qw(qsearch);
-use FS::CGI qw(header menubar popurl table);
-use FS::part_referral;
-
-$cgi = new CGI;
-
-&cgisuidsetup($cgi);
-
-$p = popurl(2);
 
 print header("Referral Listing", menubar(
   'Main Menu' => $p,
@@ -25,7 +10,7 @@ print header("Referral Listing", menubar(
       </TR>
 END
 
-foreach $part_referral ( sort { 
+foreach my $part_referral ( sort { 
   $a->getfield('refnum') <=> $b->getfield('refnum')
 } qsearch('part_referral',{}) ) {
   my($hashref)=$part_referral->hashref;
-- 
cgit v1.2.1


From 22a35047ecdffff80110e06cc08fc84f9ddba9b0 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 10 Feb 2002 13:21:31 +0000
Subject: removed <!-- $Id$ --> from all files to fix any redirects, whew

Mason handler.pl overrides CGI::redirect

fixed strict; problems in edit/part_pkg.cgi & edit/process/part_pkg.cgi
---
 httemplate/browse/part_referral.cgi | 1 -
 1 file changed, 1 deletion(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 82f42924f..3ca36b244 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -1,4 +1,3 @@
-<!-- $Id: part_referral.cgi,v 1.7 2002-01-30 14:18:08 ivan Exp $ -->
 <%
 
 print header("Referral Listing", menubar(
-- 
cgit v1.2.1


From a4c96748eb6eab29a70f3a944c6520283a635c78 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 10 Feb 2002 16:05:22 +0000
Subject: *finally* seems to be working under Mason.  sheesh. *finally* seems
 to be working under Mason.  sheesh. *finally* seems to be working under
 Mason.  sheesh. *finally* seems to be working under Mason.  sheesh. *finally*
 seems to be working under Mason.  sheesh. *finally* seems to be working under
 Mason.  sheesh. *finally* seems to be working under Mason.  sheesh. *finally*
 seems to be working under Mason.  sheesh.

---
 httemplate/browse/part_referral.cgi | 1 +
 1 file changed, 1 insertion(+)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 3ca36b244..76cc22659 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -1,3 +1,4 @@
+<!-- mason kludge -->
 <%
 
 print header("Referral Listing", menubar(
-- 
cgit v1.2.1


From 8ea299358401bea12bef7c2dd1841cef3cf45c20 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 27 Mar 2002 05:36:10 +0000
Subject: s/referral/advertising source/

yes, the name sucks.  got a better one?
---
 httemplate/browse/part_referral.cgi | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 76cc22659..bbae8d008 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -1,12 +1,12 @@
 <!-- mason kludge -->
 <%
 
-print header("Referral Listing", menubar(
+print header("Advertising source Listing", menubar(
   'Main Menu' => $p,
 #  'Add new referral' => "../edit/part_referral.cgi",
 )), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", &table(), <<END;
       <TR>
-        <TH COLSPAN=2>Referral</TH>
+        <TH COLSPAN=2>Advertising source</TH>
       </TR>
 END
 
@@ -27,7 +27,7 @@ END
 
 print <<END;
       <TR>
-        <TD COLSPAN=2><A HREF="${p}edit/part_referral.cgi"><I>Add a new referral</I></A></TD>
+        <TD COLSPAN=2><A HREF="${p}edit/part_referral.cgi"><I>Add a new advertising source</I></A></TD>
       </TR>
     </TABLE>
     </CENTER>
-- 
cgit v1.2.1


From 87af741da0dd5f6a76bbb566b4d6c54cd5b15315 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 5 Apr 2002 23:51:18 +0000
Subject: - add message catalog table & beginning of web interface - add
 security_phrase and conf option to svc_acct.pm - random other stuff

---
 httemplate/browse/part_referral.cgi | 1 -
 1 file changed, 1 deletion(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index bbae8d008..93a6976e1 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -30,7 +30,6 @@ print <<END;
         <TD COLSPAN=2><A HREF="${p}edit/part_referral.cgi"><I>Add a new advertising source</I></A></TD>
       </TR>
     </TABLE>
-    </CENTER>
   </BODY>
 </HTML>
 END
-- 
cgit v1.2.1


From 6d02e527490b2f0cf080f7b519443caeecd76357 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 4 Jul 2002 10:35:43 +0000
Subject: move "add" links to the top

---
 httemplate/browse/part_referral.cgi | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 93a6976e1..084c21bd0 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -1,15 +1,19 @@
 <!-- mason kludge -->
-<%
-
-print header("Advertising source Listing", menubar(
+<%= header("Advertising source Listing", menubar(
   'Main Menu' => $p,
 #  'Add new referral' => "../edit/part_referral.cgi",
-)), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", &table(), <<END;
-      <TR>
-        <TH COLSPAN=2>Advertising source</TH>
-      </TR>
-END
+)) %>
+Where a customer heard about your service. Tracked for informational purposes.
+<BR><BR>
+<A HREF="<%= $p %>edit/part_referral.cgi"><I>Add a new advertising source</I></A>
+<BR><BR>
 
+<%= table() %>
+<TR>
+  <TH COLSPAN=2>Advertising source</TH>
+</TR>
+
+<%
 foreach my $part_referral ( sort { 
   $a->getfield('refnum') <=> $b->getfield('refnum')
 } qsearch('part_referral',{}) ) {
@@ -26,9 +30,6 @@ END
 }
 
 print <<END;
-      <TR>
-        <TD COLSPAN=2><A HREF="${p}edit/part_referral.cgi"><I>Add a new advertising source</I></A></TD>
-      </TR>
     </TABLE>
   </BODY>
 </HTML>
-- 
cgit v1.2.1


From 368bc5c098a47c32db7c575f912683ebe8662f59 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 24 Oct 2003 00:39:50 +0000
Subject: referral listing now shows customer signups today and past
 week/30/60/90/6months/year/total

---
 httemplate/browse/part_referral.cgi | 49 ++++++++++++++++++++++++++++---------
 1 file changed, 37 insertions(+), 12 deletions(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 084c21bd0..1a57a5b24 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -8,31 +8,56 @@ Where a customer heard about your service. Tracked for informational purposes.
 <A HREF="<%= $p %>edit/part_referral.cgi"><I>Add a new advertising source</I></A>
 <BR><BR>
 
+<%
+  my $today = timelocal(0, 0, 0, (localtime(time))[3..5] );
+  my %past;
+  tie %past, 'Tie::IxHash',
+    'Today'         =>        0,
+    'Past week'     =>   518400, # 60sec * 60min * 24hrs * 6days
+    'Past 30 days'  =>  2505600, # 60sec * 60min * 24hrs * 29days 
+    'Past 60 days'  =>  5097600, # 60sec * 60min * 24hrs * 29days 
+    'Past 90 days'  =>  7689600, # 60sec * 60min * 24hrs * 29days 
+    'Past 6 months' => 15724800, # 60sec * 60min * 24hrs * 182days 
+    'Past year'     => 31486000, # 60sec * 60min * 24hrs * 364days 
+    'Total'         => $today,
+  ;
+
+  my $sth = dbh->prepare("SELECT COUNT(*) FROM h_cust_main
+                            WHERE refnum = ?
+                              AND history_date > ?         ")
+    or die dbh->errstr;
+%>
+
 <%= table() %>
 <TR>
-  <TH COLSPAN=2>Advertising source</TH>
+  <TH COLSPAN=2 ROWSPAN=2>Advertising source</TH>
+  <TH COLSPAN=<%= scalar(keys %past) %>>Customers</TH>
+</TR>
+<% for my $period ( keys %past ) { %>
+  <TH><FONT SIZE=-1><%= $period %></FONT></TH>
+<% } %>
 </TR>
 
 <%
 foreach my $part_referral ( sort { 
   $a->getfield('refnum') <=> $b->getfield('refnum')
 } qsearch('part_referral',{}) ) {
-  my($hashref)=$part_referral->hashref;
-  print <<END;
+%>
       <TR>
         <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}">
-          $hashref->{refnum}</A></TD>
+          <%= $part_referral->refnum %></A></TD>
         <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}">
-          $hashref->{referral}</A></TD>
+          <%= $part_referral->referral %></A></TD>
+        <% for my $period ( values %past ) {
+          $sth->execute($part_referral->refnum, $today-$period)
+            or die $sth->errstr;
+          my $number = $sth->fetchrow_arrayref->[0];
+        %>
+          <TD><%= $number %></TD>
+        <% } %>
       </TR>
-END
-
-}
+<% } %>
 
-print <<END;
     </TABLE>
   </BODY>
 </HTML>
-END
-
-%>
-- 
cgit v1.2.1


From f69fa5bd9f1f7a51285c167a0a17d0a4f78b72a7 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 24 Oct 2003 00:50:50 +0000
Subject: UI: adjust alignment of stats

---
 httemplate/browse/part_referral.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 1a57a5b24..37eb32991 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -53,7 +53,7 @@ foreach my $part_referral ( sort {
             or die $sth->errstr;
           my $number = $sth->fetchrow_arrayref->[0];
         %>
-          <TD><%= $number %></TD>
+          <TD ALIGN="right"><%= $number %></TD>
         <% } %>
       </TR>
 <% } %>
-- 
cgit v1.2.1


From 18356e277113c2237f296d3619b870b6879a2b6d Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 11 Nov 2003 07:51:17 +0000
Subject: part_referral.cgi

---
 httemplate/browse/part_referral.cgi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 37eb32991..270740cb8 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -44,9 +44,9 @@ foreach my $part_referral ( sort {
 } qsearch('part_referral',{}) ) {
 %>
       <TR>
-        <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}">
+        <TD><A HREF="<%= $p %>edit/part_referral.cgi?<%= $hashref->{refnum} %>">
           <%= $part_referral->refnum %></A></TD>
-        <TD><A HREF="${p}edit/part_referral.cgi?$hashref->{refnum}">
+        <TD><A HREF="<%= $p %>edit/part_referral.cgi?<%= $hashref->{refnum} %>">
           <%= $part_referral->referral %></A></TD>
         <% for my $period ( values %past ) {
           $sth->execute($part_referral->refnum, $today-$period)
-- 
cgit v1.2.1


From 8cb3d9ff1a0d7e82b603e0ce15e4a62c182537c4 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 11 Nov 2003 08:35:43 +0000
Subject: really fix advertising source edit links

---
 httemplate/browse/part_referral.cgi | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 270740cb8..69bb95aa5 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -44,9 +44,9 @@ foreach my $part_referral ( sort {
 } qsearch('part_referral',{}) ) {
 %>
       <TR>
-        <TD><A HREF="<%= $p %>edit/part_referral.cgi?<%= $hashref->{refnum} %>">
+        <TD><A HREF="<%= $p %>edit/part_referral.cgi?<%= $part_referral->refnum %>">
           <%= $part_referral->refnum %></A></TD>
-        <TD><A HREF="<%= $p %>edit/part_referral.cgi?<%= $hashref->{refnum} %>">
+        <TD><A HREF="<%= $p %>edit/part_referral.cgi?<%= $part_referral->refnum %>">
           <%= $part_referral->referral %></A></TD>
         <% for my $period ( values %past ) {
           $sth->execute($part_referral->refnum, $today-$period)
-- 
cgit v1.2.1


From 7c67ed5982f05a562c30e45938a9fa164cbeb7cb Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 20 Dec 2003 03:47:09 +0000
Subject: fix inflated advertising source numbers

---
 httemplate/browse/part_referral.cgi | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 69bb95aa5..3f59abcf5 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -23,7 +23,8 @@ Where a customer heard about your service. Tracked for informational purposes.
   ;
 
   my $sth = dbh->prepare("SELECT COUNT(*) FROM h_cust_main
-                            WHERE refnum = ?
+                            WHERE history_action = 'insert'
+                              AND refnum = ?
                               AND history_date > ?         ")
     or die dbh->errstr;
 %>
-- 
cgit v1.2.1


From 68d86148eadaadb6706b91df58d7b505269b1cdf Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 1 Apr 2004 10:56:31 +0000
Subject: add a yesterday column and a total row, closes: Bug#797

---
 httemplate/browse/part_referral.cgi | 60 +++++++++++++++++++++++++++++--------
 1 file changed, 47 insertions(+), 13 deletions(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 3f59abcf5..a326bd231 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -10,31 +10,46 @@ Where a customer heard about your service. Tracked for informational purposes.
 
 <%
   my $today = timelocal(0, 0, 0, (localtime(time))[3..5] );
-  my %past;
-  tie %past, 'Tie::IxHash',
+  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 * 29days 
-    'Past 90 days'  =>  7689600, # 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 $sth = dbh->prepare("SELECT COUNT(*) FROM h_cust_main
-                            WHERE history_action = 'insert'
-                              AND refnum = ?
-                              AND history_date > ?         ")
+  my $statement = "SELECT COUNT(*) FROM h_cust_main
+                    WHERE history_action = 'insert'
+                      AND refnum = ?
+                      AND history_date >= ?
+		      AND history_date < ?
+		  ";
+  my $sth = dbh->prepare($statement)
     or die dbh->errstr;
 %>
 
 <%= table() %>
 <TR>
   <TH COLSPAN=2 ROWSPAN=2>Advertising source</TH>
-  <TH COLSPAN=<%= scalar(keys %past) %>>Customers</TH>
+  <TH COLSPAN=<%= scalar(keys %after) %>>Customers</TH>
 </TR>
-<% for my $period ( keys %past ) { %>
+<% for my $period ( keys %after ) { %>
   <TH><FONT SIZE=-1><%= $period %></FONT></TH>
 <% } %>
 </TR>
@@ -49,9 +64,11 @@ foreach my $part_referral ( sort {
           <%= $part_referral->refnum %></A></TD>
         <TD><A HREF="<%= $p %>edit/part_referral.cgi?<%= $part_referral->refnum %>">
           <%= $part_referral->referral %></A></TD>
-        <% for my $period ( values %past ) {
-          $sth->execute($part_referral->refnum, $today-$period)
-            or die $sth->errstr;
+        <% for my $after ( values %after ) {
+          $sth->execute( $part_referral->refnum,
+                         $today-$after,
+                         $today+$before{$today},
+          ) or die $sth->errstr;
           my $number = $sth->fetchrow_arrayref->[0];
         %>
           <TD ALIGN="right"><%= $number %></TD>
@@ -59,6 +76,23 @@ foreach my $part_referral ( sort {
       </TR>
 <% } %>
 
+<%
+  $statement =~ s/AND refnum = \?//;
+  $sth = dbh->prepare($statement)
+    or die dbh->errstr;
+%>
+      <TR>
+        <TH COLSPAN=2>Total</TH>
+        <% for my $after ( values %after ) {
+          $sth->execute( $today-$after,
+                         $today+$before{$today},
+          ) or die $sth->errstr;
+          my $number = $sth->fetchrow_arrayref->[0];
+        %>
+          <TD ALIGN="right"><%= $number %></TD>
+        <% } %>
+      </TR>
+        <TD></TD>
     </TABLE>
   </BODY>
 </HTML>
-- 
cgit v1.2.1


From 95d7eccb2a441d225257181eb8db0911f38a5176 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 1 Apr 2004 11:09:28 +0000
Subject: oops!

---
 httemplate/browse/part_referral.cgi | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index a326bd231..25397e1da 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -64,10 +64,10 @@ foreach my $part_referral ( sort {
           <%= $part_referral->refnum %></A></TD>
         <TD><A HREF="<%= $p %>edit/part_referral.cgi?<%= $part_referral->refnum %>">
           <%= $part_referral->referral %></A></TD>
-        <% for my $after ( values %after ) {
+        <% for my $period ( keys %after ) {
           $sth->execute( $part_referral->refnum,
-                         $today-$after,
-                         $today+$before{$today},
+                         $today-$after{$period},
+                         $today+$before{$period},
           ) or die $sth->errstr;
           my $number = $sth->fetchrow_arrayref->[0];
         %>
@@ -83,9 +83,9 @@ foreach my $part_referral ( sort {
 %>
       <TR>
         <TH COLSPAN=2>Total</TH>
-        <% for my $after ( values %after ) {
-          $sth->execute( $today-$after,
-                         $today+$before{$today},
+        <% for my $period ( keys %after ) {
+          $sth->execute( $today-$after{$period},
+                         $today+$before{$period},
           ) or die $sth->errstr;
           my $number = $sth->fetchrow_arrayref->[0];
         %>
-- 
cgit v1.2.1


From 7ca594813a8426beb70d9f61544be1f6ac7b3d3f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 1 Apr 2004 11:14:34 +0000
Subject: remove extraneous html

---
 httemplate/browse/part_referral.cgi | 1 -
 1 file changed, 1 deletion(-)

(limited to 'httemplate/browse/part_referral.cgi')

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 25397e1da..581e01bb6 100755
--- a/httemplate/browse/part_referral.cgi
+++ b/httemplate/browse/part_referral.cgi
@@ -92,7 +92,6 @@ foreach my $part_referral ( sort {
           <TD ALIGN="right"><%= $number %></TD>
         <% } %>
       </TR>
-        <TD></TD>
     </TABLE>
   </BODY>
 </HTML>
-- 
cgit v1.2.1