X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fbrowse%2Fpart_referral.cgi;h=3f59abcf58ed9e00905fa7142f4f56445e05313b;hb=351b0af13ba6c449151c1bec2303294051c073d1;hp=270740cb8a5766a5bea1f91dfcb92e7a4b9b0834;hpb=18356e277113c2237f296d3619b870b6879a2b6d;p=freeside.git

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 270740cb8..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;
 %>
@@ -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)