<% include('/elements/header.html', 'Quick payment entry') %> <% include('/elements/error.html') %> <% include('/elements/xmlhttp.html', 'url' => $p. 'misc/xmlhttp-cust_main-discount_terms.cgi', 'subs' => [qw( discount_terms )], ) %>

<% include( "/elements/customer-table.html", name_singular => 'payment', header => \@header, fields => \@fields, types => \@types, align => \@align, sizes => \@sizes, colors => \@colors, param => \%param, footer => \@footer, footer_align => \@footer_align, custnum_update_callback => $custnum_update_callback, ) %>

%if ( $cgi->param('error') ) { %} <% include('/elements/footer.html') %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Post payment batch'); my $conf = new FS::Conf; my $money_char = $conf->config('money_char') || '$'; my @header = ( '', 'Amount', 'Check #' ); my @fields = ( sub { "$money_char" }, 'paid', 'payinfo' ); my @types = ( 'immutable', '', '' ); my @align = ( 'c', 'r', 'r' ); my @sizes = ( 0, 8, 10 ); my @colors = ( '', '', '' ); my %param = (); my @footer = ( "$money_char", '_TOTAL', '' ); my @footer_align = ( 'c', 'r', 'r' ); my $custnum_update_callback = ''; if ( FS::Record->scalar_sql('SELECT COUNT(*) FROM part_pkg_discount') ) { push @header, ''; push @fields, 'discount_term'; push @types, 'immutable'; push @align, 'r'; push @sizes, '0'; push @colors, ''; push @footer, ''; push @footer_align, ''; $custnum_update_callback = 'select_discount_term'; } push @header, ''; push @fields, 'error'; push @types, 'immutable'; push @align, 'l'; push @sizes, '0'; push @colors, '#ff0000'; push @footer, ''; push @footer_align, ''; $m->comp('/elements/handle_uri_query');