X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_credit.cgi;h=09300c62992426de9fb415be30beb2353a14ef7b;hp=c6b2bcbeab56add15c84abe975217b0efe445ada;hb=63973c641c4be00765fa27e55c57cc5b9aa4da19;hpb=4396080ed2829ae0595f1fd777f39d090c9bcd7c diff --git a/httemplate/edit/cust_credit.cgi b/httemplate/edit/cust_credit.cgi index c6b2bcbea..09300c629 100755 --- a/httemplate/edit/cust_credit.cgi +++ b/httemplate/edit/cust_credit.cgi @@ -1,6 +1,6 @@ -<% include('/elements/header-popup.html', 'Enter Credit') %> +<& /elements/header-popup.html, mt('Enter Credit') &> -<% include('/elements/error.html') %> +<& /elements/error.html &>
@@ -8,44 +8,47 @@ - -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', +<& /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') ) { - <% include('/elements/tr-select-cust_pkg-balances.html', + <& /elements/tr-select-cust_pkg-balances.html, 'custnum' => $custnum, 'cgi' => $cgi - ) - %> + &> % } else { % } @@ -54,17 +57,15 @@ Credit
-
+
-<%once> +<%init> my $conf = new FS::Conf; - - -<%init> +my $date_format = $conf->config('date_format') || '%m/%d/%Y'; die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Post credit'); @@ -72,10 +73,6 @@ die "access denied" my $custnum = $cgi->param('custnum'); my $amount = $cgi->param('amount'); my $_date = time; -my $otaker = getotaker; my $p1 = popurl(1); -my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ) - or die "unknown custnum $custnum\n"; -