<%
-#<!-- $Id: cust_main.cgi,v 1.16 2001-12-26 09:18:18 ivan Exp $ -->
+#<!-- $Id: cust_main.cgi,v 1.18 2001-12-27 09:26:14 ivan Exp $ -->
use strict;
use vars qw ( $cgi $query $custnum $cust_main $hashref $agent $referral
foreach my $type_pkgs ( qsearch('type_pkgs',{'typenum'=> $agent->typenum }) ) {
my $pkgpart = $type_pkgs->pkgpart;
- my $part_pkg = qsearchs('part_pkg', { 'pkgpart' => $pkgpart } )
- or do { warn "unknown type_pkgs.pkgpart $pkgpart"; next; };
+# my $part_pkg = qsearchs('part_pkg', { 'pkgpart' => $pkgpart } )
+# or do { warn "unknown type_pkgs.pkgpart $pkgpart"; next; };
+ my $part_pkg =
+ qsearchs('part_pkg', { 'pkgpart' => $pkgpart, 'disabled' => '' } )
+ or next;
print qq!<OPTION VALUE="$pkgpart">!. $part_pkg->pkg. ' - '.
$part_pkg->comment;
}
$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>",