X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_pay.cgi;h=5d74365e7223bc418034230cfe0a3afe15501edb;hp=4dff06d88255767fd661671af51b1aecf085defd;hb=dea176cdec2d5ed43c6f4304681b109a11da4fa0;hpb=4396080ed2829ae0595f1fd777f39d090c9bcd7c diff --git a/httemplate/edit/cust_pay.cgi b/httemplate/edit/cust_pay.cgi index 4dff06d88..5d74365e7 100755 --- a/httemplate/edit/cust_pay.cgi +++ b/httemplate/edit/cust_pay.cgi @@ -1,12 +1,12 @@ % if ( $link eq 'popup' ) { - <% include('/elements/header-popup.html', $title ) %> + <& /elements/header-popup.html, $title &> % } else { - <% include("/elements/header.html", $title, '') %> + <& /elements/header.html, $title, '' &> % } -<% include('/elements/init_calendar.html') %> +<& /elements/init_calendar.html &> -<% include('/elements/error.html') %> +<& /elements/error.html &> % unless ( $link eq 'popup' ) { <% small_custview($custnum, $conf->config('countrydefault')) %> @@ -18,66 +18,95 @@ -

+
-Payment +<% mt('Payment') |h %> <% ntable("#cccccc", 2) %> - - Date - - "> - - - +% my %date_args = ( +% 'name' => '_date', +% 'label' => emt('Date'), +% 'value' => $_date, +% 'format' => $date_format. ' %r', +% 'colspan' => 2, +% ); +% if ( $FS::CurrentUser::CurrentUser->access_right('Backdate payment') ) { + + <& /elements/tr-input-date-field.html, \%date_args &> + +% } else { - + <& /elements/tr-fixed-date.html, \%date_args &> + +% } - Amount - <% $money_char %> - by <% FS::payby->payname($payby) %> + <% mt('Amount') |h %> + <% $money_char |h %> <% mt('by') |h %> <% mt(FS::payby->payname($payby)) |h %> +% if ( $conf->exists('part_pkg-term_discounts') ) { + <& /elements/tr-select-discount_term.html, + 'custnum' => $custnum, + 'amount_id' => 'paid', + &> +% } + % if ( $payby eq 'BILL' ) { - Check # + <% mt('Check #') |h %> -% } +% } +% elsif ( $payby eq 'CASH' and $conf->exists('require_cash_deposit_info') ) { + + <% mt('Bank') |h %> + + + + <% mt('Check #') |h %> + + + + <% mt('Teller #') |h %> + + + + <% mt('Depositor') |h %> + + + + <% mt('Account #') |h %> + + +% } % if ( $link eq 'custnum' || $link eq 'popup' ) { - Auto-apply
to invoices + <% mt('Auto-apply to invoices') |h %> - + + + + + % } elsif ( $link eq 'invnum' ) { - Apply to + <% mt('Apply to') |h %> Invoice #<% $linknum %> only - + % } % if ( $conf->exists('pkg-balances') ) { - <% include('/elements/tr-select-cust_pkg-balances.html', + <& /elements/tr-select-cust_pkg-balances.html, 'custnum' => $custnum, 'cgi' => $cgi - ) - %> + &> % } else { % } @@ -85,7 +114,7 @@ Payment
- + @@ -93,26 +122,24 @@ Payment % } else { - <% include('/elements/footer.html') %> + <& /elements/footer.html &> % } <%init> my $conf = new FS::Conf; -my $money_char = $conf->config('money_char') || '$'; - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Post payment'); +my $money_char = $conf->config('money_char') || '$'; +my $date_format = $conf->config('date_format') || '%m/%d/%Y'; -my($link, $linknum, $paid, $payby, $payinfo, $_date, $pkgnum); +my($link, $linknum, $paid, $payby, $payinfo, $_date); if ( $cgi->param('error') ) { $link = $cgi->param('link'); $linknum = $cgi->param('linknum'); $paid = $cgi->param('paid'); $payby = $cgi->param('payby'); $payinfo = $cgi->param('payinfo'); - $_date = $cgi->param('_date') ? str2time($cgi->param('_date')) : time; + $_date = $cgi->param('_date') ? parse_datetime($cgi->param('_date')) : time; } elsif ( $cgi->param('custnum') =~ /^(\d+)$/ ) { $link = $cgi->param('popup') ? 'popup' : 'custnum'; $linknum = $1; @@ -131,10 +158,17 @@ if ( $cgi->param('error') ) { die "illegal query ". $cgi->keywords; } +my @rights = ('Post payment'); +push @rights, 'Post check payment' if $payby eq 'BILL'; +push @rights, 'Post cash payment' if $payby eq 'CASH'; + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right(\@rights); + my $paybatch = "webui-$_date-$$-". rand() * 2**32; -my $title = 'Post '. FS::payby->payname($payby). ' payment'; -$title .= " against Invoice #$linknum" if $link eq 'invnum'; +my $title = mt('Post '. FS::payby->payname($payby). ' payment'); +$title .= mt(" against Invoice #[_1]",$linknum) if $link eq 'invnum'; my $custnum; if ( $link eq 'invnum' ) {