fix inflated advertising source numbers

[freeside.git] / httemplate / browse / part_referral.cgi

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 270740c..3f59abc 100755 (executable)
--- 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;
 %>
@@ -44,9 +45,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)