'header' => [ 'Payment',
'Amount',
'Date',
+ 'By',
FS::UI::Web::cust_header(),
],
'fields' => [
},
sub { sprintf('$%.2f', shift->paid ) },
sub { time2str('%b %d %Y', shift->_date ) },
+ sub { my $o = shift->otaker;
+ $o = 'auto billing' if $o eq 'fs_daily';
+ $o = 'customer self-service' if $o eq 'fs_selfservice';
+ $o;
+ },
\&FS::UI::Web::cust_fields,
],
#'align' => 'lrrrll',
- 'align' => 'rrr'.FS::UI::Web::cust_aligns(),
+ 'align' => 'rrrc'.FS::UI::Web::cust_aligns(),
'links' => [
+ $link,
+ $link,
+ $link,
'',
- '',
- '',
- ( map { $_ ne 'Cust. Status' ? $link : '' }
+ ( map { $_ ne 'Cust. Status' ? $cust_link : '' }
FS::UI::Web::cust_header()
),
],
'',
'',
'',
+ '',
FS::UI::Web::cust_colors(),
],
'style' => [
'',
'',
'',
+ '',
FS::UI::Web::cust_styles(),
],
)
}
}
+ 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' ]