From e0d75192ce1eefb05689b08961f5009b71063466 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 26 Dec 2001 15:41:02 +0000
Subject: [PATCH] remove warnings

---
 httemplate/view/cust_main.cgi | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi
index eea2403c4..e84fa0756 100755
--- a/httemplate/view/cust_main.cgi
+++ b/httemplate/view/cust_main.cgi
@@ -1,5 +1,5 @@
 <%
-#<!-- $Id: cust_main.cgi,v 1.16 2001-12-26 09:18:18 ivan Exp $ -->
+#<!-- $Id: cust_main.cgi,v 1.17 2001-12-26 15:41:02 ivan Exp $ -->
 
 use strict;
 use vars qw ( $cgi $query $custnum $cust_main $hashref $agent $referral 
@@ -486,11 +486,12 @@ foreach $item (sort keyfield_numerically @history) {
   $balance -= $credit - $refund;
   $balance = sprintf("%.2f", $balance);
   $balance =~ s/^\-0\.00$/0.00/; #yay ieee fp
+  $target = '' unless defined $target;
 
   print "<TR><TD><FONT SIZE=-1>";
-  print qq!<A NAME="$target">! unless $target{$target}++;
+  print qq!<A NAME="$target">! unless $target && $target{$target}++;
   print time2str("%D",$date);
-  print '</A>' if $target{$target} == 1;
+  print '</A>' if $target && $target{$target} == 1;
   print "</FONT></TD>",
 	"<TD><FONT SIZE=-1>$desc</FONT></TD>",
 	"<TD><FONT SIZE=-1>",
-- 
2.11.0