X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_credit.cgi;h=6e8a9c9892e76fad982982e5404699d128d33983;hp=2ff09d00b7d6117eae5677edb0f16ed77202ee63;hb=9324c64e784a866c4d615773c8ce5970cc0d6ed8;hpb=2a6aa24137ddd389c1e644f5ece325c5b5dbaf3a diff --git a/httemplate/edit/cust_credit.cgi b/httemplate/edit/cust_credit.cgi index 2ff09d00b..6e8a9c989 100755 --- a/httemplate/edit/cust_credit.cgi +++ b/httemplate/edit/cust_credit.cgi @@ -1,79 +1,79 @@ -<% include('/elements/header-popup.html', 'Enter Credit') %> +<& /elements/header-popup.html, mt('Enter Credit') &> -<% include('/elements/error.html') %> +<& /elements/error.html &>
- + -Credit <% ntable("#cccccc", 2) %> - Date - <% time2str("%D",$_date) %> + <% mt('Date') |h %> + <% time2str($date_format, $_date) %> - Amount - $ + <% mt('Amount') |h %> + $ -% -%#print qq! Also post refund!; -% - -<% include('/elements/tr-select-reason.html', - 'field' => 'reasonnum', - 'reason_class' => 'R', - 'control_button' => 'document.credit_popup.submit', - ) -%> +<& /elements/tr-select-reason.html, + 'field' => 'reasonnum', + 'reason_class' => 'R', + 'control_button' => "document.getElementById('confirm_credit_button')", + 'cgi' => $cgi, +&> - Auto-apply
to invoices - + <% mt('Additional info') |h %> + + + + +% if ( $conf->exists('credits-auto-apply-disable') ) { + +% } else { + + <% mt('Auto-apply to invoices') |h %> + +% } + +% if ( $conf->exists('pkg-balances') ) { + <& /elements/tr-select-cust_pkg-balances.html, + 'custnum' => $custnum, + 'cgi' => $cgi + &> +% } else { + +% }
-
+
+<%init> -<%once> my $conf = new FS::Conf; - +my $date_format = $conf->config('date_format') || '%m/%d/%Y'; + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('Post credit'); + +my $custnum = $cgi->param('custnum'); +my $amount = $cgi->param('amount'); +my $_date = time; +my $otaker = getotaker; +my $p1 = popurl(1); -<%init> -my($custnum, $amount, $reason); -if ( $cgi->param('error') ) { - #$cust_credit = new FS::cust_credit ( { - # map { $_, scalar($cgi->param($_)) } fields('cust_credit') - #} ); - $custnum = $cgi->param('custnum'); - $amount = $cgi->param('amount'); - #$refund = $cgi->param('refund'); - $reason = $cgi->param('reason'); -} else { - my($query) = $cgi->keywords; - $query =~ /^(\d+)$/; - $custnum = $1; - $amount = ''; - #$refund = 'yes'; - $reason = ''; -} -my $_date = time; - -my $otaker = getotaker; - -my $p1 = popurl(1);