#'align' => 'lrrrll',
'align' => 'rrr'.FS::UI::Web::cust_aligns(),
'links' => [
- '',
- '',
- '',
- ( map { $_ ne 'Cust. Status' ? $link : '' }
+ $link,
+ $link,
+ $link,
+ ( map { $_ ne 'Cust. Status' ? $cust_link : '' }
FS::UI::Web::cust_header()
),
],
}
}
+ if ( $cgi->param('payinfo') ) {
+ $cgi->param('payinfo') =~ /^\s*(\d+)\s*$/
+ or die "illegal payinfo ". $cgi->param('payinfo');
+ push @search, "cust_pay.payinfo = '$1'";
+ }
+
my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi);
push @search, "_date >= $beginning ",
"_date <= $ending";
} else {
+ #hmm... is this still used?
+
$cgi->param('payinfo') =~ /^\s*(\d+)\s*$/ or die "illegal payinfo";
my $payinfo = $1;
}
-my $link = sub {
+my $link = [ "${p}view/cust_pay.html?paynum=", 'paynum' ];
+
+my $cust_link = sub {
my $cust_pay = shift;
$cust_pay->cust_main_custnum
? [ "${p}view/cust_main.cgi?", 'custnum' ]