From 3ce7691203a7737406bf2d4442f7fd84b81f847e Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 23 Aug 2006 22:25:39 +0000 Subject: Will things ever be the same again? It's the final masonize --- httemplate/edit/cust_refund.cgi | 185 ++++++++++++++++++++-------------------- 1 file changed, 93 insertions(+), 92 deletions(-) (limited to 'httemplate/edit/cust_refund.cgi') diff --git a/httemplate/edit/cust_refund.cgi b/httemplate/edit/cust_refund.cgi index 8955c7cee..2b3e02614 100755 --- a/httemplate/edit/cust_refund.cgi +++ b/httemplate/edit/cust_refund.cgi @@ -1,94 +1,95 @@ -<% +% +% +%my $conf = new FS::Conf; +%my $custnum = $cgi->param('custnum'); +%my $refund = $cgi->param('refund'); +%my $payby = $cgi->param('payby'); +%my $reason = $cgi->param('reason'); +% +%my( $paynum, $cust_pay ) = ( '', '' ); +%if ( $cgi->param('paynum') =~ /^(\d+)$/ ) { +% $paynum = $1; +% $cust_pay = qsearchs('cust_pay', { paynum=>$paynum } ) +% or die "unknown payment # $paynum"; +% $refund ||= $cust_pay->unrefunded; +% if ( $custnum ) { +% die "payment # $paynum is not for specified customer # $custnum" +% unless $custnum == $cust_pay->custnum; +% } else { +% $custnum = $cust_pay->custnum; +% } +%} +%die "no custnum or paynum specified!" unless $custnum; +% +%my $_date = time; +% +%my $p1 = popurl(1); +% +%print header('Refund '. ucfirst(lc($payby)). ' payment', ''); +%print qq!Error: !, $cgi->param('error'), +% "" +% if $cgi->param('error'); +%print <config('countrydefault')); +%
+% +% +% +% +% +% +% +% +%
+%END +% +%if ( $cust_pay ) { +% +% #false laziness w/FS/FS/cust_pay.pm +% my $payby = $cust_pay->payby; +% my $payinfo = $cust_pay->payinfo; +% $payby =~ s/^BILL$/Check/ if $payinfo; +% $payby =~ s/^CHEK$/Electronic check/; +% $payinfo = $cust_pay->payinfo_masked if $payby eq 'CARD'; +% +% print '
Payment'. ntable("#cccccc", 2). +% 'Amount$'. +% $cust_pay->paid. ''. +% 'Date'. +% time2str("%D",$cust_pay->_date). ''. +% 'Method'. +% ucfirst(lc($payby)). ' # '. $payinfo. ''; +% #false laziness w/FS/FS/cust_main::realtime_refund_bop +% if ( $cust_pay->paybatch =~ /^(\w+):(\w+)(:(\w+))?$/ ) { +% my ( $processor, $auth, $order_number ) = ( $1, $2, $4 ); +% print 'Processor'. +% $processor. ''; +% print 'Authorization'. +% $auth. '' +% if length($auth); +% print 'Order number'. +% $order_number. '' +% if length($order_number); +% } +% print ''; +%} +% +%print '
Refund'. ntable("#cccccc", 2). +% 'Date'. +% time2str("%D",$_date). ''; +% +%print qq!Amount\$!; +% +%print qq!Reason!; +% +%print < +%
+% +% +% +% +%END +% +% -my $conf = new FS::Conf; -my $custnum = $cgi->param('custnum'); -my $refund = $cgi->param('refund'); -my $payby = $cgi->param('payby'); -my $reason = $cgi->param('reason'); - -my( $paynum, $cust_pay ) = ( '', '' ); -if ( $cgi->param('paynum') =~ /^(\d+)$/ ) { - $paynum = $1; - $cust_pay = qsearchs('cust_pay', { paynum=>$paynum } ) - or die "unknown payment # $paynum"; - $refund ||= $cust_pay->unrefunded; - if ( $custnum ) { - die "payment # $paynum is not for specified customer # $custnum" - unless $custnum == $cust_pay->custnum; - } else { - $custnum = $cust_pay->custnum; - } -} -die "no custnum or paynum specified!" unless $custnum; - -my $_date = time; - -my $p1 = popurl(1); - -print header('Refund '. ucfirst(lc($payby)). ' payment', ''); -print qq!Error: !, $cgi->param('error'), - "" - if $cgi->param('error'); -print <config('countrydefault')); -
- - - - - - - - -
-END - -if ( $cust_pay ) { - - #false laziness w/FS/FS/cust_pay.pm - my $payby = $cust_pay->payby; - my $payinfo = $cust_pay->payinfo; - $payby =~ s/^BILL$/Check/ if $payinfo; - $payby =~ s/^CHEK$/Electronic check/; - $payinfo = $cust_pay->payinfo_masked if $payby eq 'CARD'; - - print '
Payment'. ntable("#cccccc", 2). - 'Amount$'. - $cust_pay->paid. ''. - 'Date'. - time2str("%D",$cust_pay->_date). ''. - 'Method'. - ucfirst(lc($payby)). ' # '. $payinfo. ''; - #false laziness w/FS/FS/cust_main::realtime_refund_bop - if ( $cust_pay->paybatch =~ /^(\w+):(\w+)(:(\w+))?$/ ) { - my ( $processor, $auth, $order_number ) = ( $1, $2, $4 ); - print 'Processor'. - $processor. ''; - print 'Authorization'. - $auth. '' - if length($auth); - print 'Order number'. - $order_number. '' - if length($order_number); - } - print ''; -} - -print '
Refund'. ntable("#cccccc", 2). - 'Date'. - time2str("%D",$_date). ''; - -print qq!Amount\$!; - -print qq!Reason!; - -print < -
- - - - -END - -%> -- cgit v1.2.1 From dcdf657e77ec7b46dc69e19a849a9c133123db7c Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 14 Dec 2006 06:00:46 +0000 Subject: encryption fixes from huntsberg & jayce --- httemplate/edit/cust_refund.cgi | 147 ++++++++++++++++++++++++---------------- 1 file changed, 89 insertions(+), 58 deletions(-) (limited to 'httemplate/edit/cust_refund.cgi') diff --git a/httemplate/edit/cust_refund.cgi b/httemplate/edit/cust_refund.cgi index 2b3e02614..aa825af94 100755 --- a/httemplate/edit/cust_refund.cgi +++ b/httemplate/edit/cust_refund.cgi @@ -1,4 +1,3 @@ - % % %my $conf = new FS::Conf; @@ -26,70 +25,102 @@ % %my $p1 = popurl(1); % -%print header('Refund '. ucfirst(lc($payby)). ' payment', ''); -%print qq!Error: !, $cgi->param('error'), -% "" -% if $cgi->param('error'); -%print <config('countrydefault')); -%
-% -% -% -% -% -% -% -% -%
-%END % -%if ( $cust_pay ) { + + +<% include('/elements/header.html', 'Refund '. ucfirst(lc($payby)). ' payment', '') %> +% if ( $cgi->param('error') ) { + + Error: <% $cgi->param('error') %> +

+% } + + +<% small_custview($custnum, $conf->config('countrydefault')) %> + + + + + + + + + + +
+% if ( $cust_pay ) { % % #false laziness w/FS/FS/cust_pay.pm % my $payby = $cust_pay->payby; -% my $payinfo = $cust_pay->payinfo; -% $payby =~ s/^BILL$/Check/ if $payinfo; +% my $paymask = $cust_pay->paymask; +% $payby =~ s/^BILL$/Check/ if $paymask; % $payby =~ s/^CHEK$/Electronic check/; -% $payinfo = $cust_pay->payinfo_masked if $payby eq 'CARD'; % -% print '
Payment'. ntable("#cccccc", 2). -% 'Amount$'. -% $cust_pay->paid. ''. -% 'Date'. -% time2str("%D",$cust_pay->_date). ''. -% 'Method'. -% ucfirst(lc($payby)). ' # '. $payinfo. ''; +% + + +
Payment + <% ntable("#cccccc", 2) %> + + + Amount$<% $cust_pay->paid %> + + + + Date<% time2str("%D",$cust_pay->_date) %> + + + + Method<% ucfirst(lc($payby)) %> # <% $paymask %> + +% % #false laziness w/FS/FS/cust_main::realtime_refund_bop % if ( $cust_pay->paybatch =~ /^(\w+):(\w+)(:(\w+))?$/ ) { % my ( $processor, $auth, $order_number ) = ( $1, $2, $4 ); -% print 'Processor'. -% $processor. ''; -% print 'Authorization'. -% $auth. '' -% if length($auth); -% print 'Order number'. -% $order_number. '' -% if length($order_number); -% } -% print ''; -%} -% -%print '
Refund'. ntable("#cccccc", 2). -% 'Date'. -% time2str("%D",$_date). ''; -% -%print qq!Amount\$!; -% -%print qq!Reason!; -% -%print < -%
-% -% -% -% -%END -% -% +% + + + + Processor<% $processor %> + +% if ( length($auth) ) { + + + Authorization<% $auth %> + +% } +% if ( length($order_number) ) { + + + Order number<% $order_number %> + +% } +% } + + +% } + + +
Refund +<% ntable("#cccccc", 2) %> + + + Date<% time2str("%D",$_date) %> + + + + Amount$ + + + + Reason + + + +
+ + + + +<% include('/elements/footer.html') %> -- cgit v1.2.1