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

diff --git a/httemplate/browse/part_referral.cgi b/httemplate/browse/part_referral.cgi
index 1a57a5b24..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,16 +45,16 @@ 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)
             or die $sth->errstr;
           my $number = $sth->fetchrow_arrayref->[0];
         %>
-          <TD><%= $number %></TD>
+          <TD ALIGN="right"><%= $number %></TD>
         <% } %>
       </TR>
 <% } %>