<%
-#<!-- $Id: cust_main.cgi,v 1.12 2001-09-21 03:47:26 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
$conf = new FS::Conf;
-print $cgi->header( '-expires' => 'now' ), header("Customer View", menubar(
+print header("Customer View", menubar(
'Main Menu' => popurl(2)
));
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;
}
@history = (); #needed for mod_perl :)
+my %target = ();
+
@bills = qsearch('cust_bill',{'custnum'=>$custnum});
foreach $bill (@bills) {
my($bref)=$bill->hashref;
$payment->payinfo,
$cust_bill_pay->amount,
);
- $payinfo = substr($payinfo,0,4). 'x'x(length($payinfo)-4) if $payby eq 'CARD';
+ $payinfo = substr($payinfo,0,4). 'x'x(length($payinfo)-4)
+ if $payby eq 'CARD';
+ my $target = "$payby$payinfo";
+ $payby =~ s/^BILL$/Check #/ if $payinfo;
+ $payby =~ s/^(CARD|COMP)$/$1 /;
push @history,
- "$date\tPayment, Invoice #$invnum ($payby $payinfo)\t\t$paid\t\t";
+ "$date\tPayment, Invoice #$invnum ($payby$payinfo)\t\t$paid\t\t\t$target";
}
my(@cust_credit_bill)=
my @unapplied_payments =
grep { $_->unapplied > 0 } qsearch('cust_pay', { 'custnum' => $custnum } );
foreach my $payment (@unapplied_payments) {
+ my $payby = $payment->payby;
+ my $payinfo = $payment->payinfo;
+ #false laziness w/above
+ $payinfo = substr($payinfo,0,4). 'x'x(length($payinfo)-4)
+ if $payby eq 'CARD';
+ my $target = "$payby$payinfo";
+ $payby =~ s/^BILL$/Check #/ if $payinfo;
+ $payby =~ s/^(CARD|COMP)$/$1 /;
push @history,
$payment->_date. "\t".
'<A HREF="'. popurl(2). 'edit/cust_bill_pay.cgi?'. $payment->paynum. '">'.
'<b><font size="+1" color="#ff0000">Unapplied payment #' .
- $payment->paynum . "</font></b></A>".
- "\t\t" . $payment->unapplied . "\t\t";
+ $payment->paynum . " ($payby$payinfo)</font></b></A>".
+ "\t\t" . $payment->unapplied . "\t\t\t$target";
}
#formatting
$balance = 0;
foreach $item (sort keyfield_numerically @history) {
- my($date,$desc,$charge,$payment,$credit,$refund)=split(/\t/,$item);
+ my($date,$desc,$charge,$payment,$credit,$refund,$target)=split(/\t/,$item);
$charge ||= 0;
$payment ||= 0;
$credit ||= 0;
$refund ||= 0;
$balance += $charge - $payment;
$balance -= $credit - $refund;
-
- print "<TR><TD><FONT SIZE=-1>",time2str("%D",$date),"</FONT></TD>",
+ $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{$target}++;
+ print time2str("%D",$date);
+ print '</A>' if $target && $target{$target} == 1;
+ print "</FONT></TD>",
"<TD><FONT SIZE=-1>$desc</FONT></TD>",
"<TD><FONT SIZE=-1>",
( $charge ? "\$".sprintf("%.2f",$charge) : '' ),
"<TD><FONT SIZE=-1>",
( $refund ? "\$".sprintf("%.2f",$refund) : '' ),
"</FONT></TD>",
- "<TD><FONT SIZE=-1>\$" . sprintf("%.2f",$balance),
+ "<TD><FONT SIZE=-1>\$" . $balance,
"</FONT></TD>",
"\n";
}