diff options
| author | ivan <ivan> | 2001-12-26 15:41:02 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-12-26 15:41:02 +0000 |
| commit | e0d75192ce1eefb05689b08961f5009b71063466 (patch) | |
| tree | 1f6389d481f0bf812173f7854b04ac8b08fb419d | |
| parent | 85e18d1c25a16b3d37ff87484b36a9e17d17cbcf (diff) | |
remove warnings
| -rwxr-xr-x | httemplate/view/cust_main.cgi | 7 |
1 files 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>", |