diff options
author | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
commit | c82d349f864e6bd9f96fd1156903bc1f7193a203 (patch) | |
tree | e117a87533656110b6acd56fc0ca64289892a9f5 /httemplate/search/cust_pay_pending.html | |
parent | 74e058c8a010ef6feb539248a550d0bb169c1e94 (diff) |
This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9
Diffstat (limited to 'httemplate/search/cust_pay_pending.html')
-rwxr-xr-x | httemplate/search/cust_pay_pending.html | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/httemplate/search/cust_pay_pending.html b/httemplate/search/cust_pay_pending.html deleted file mode 100755 index 8b7350853..000000000 --- a/httemplate/search/cust_pay_pending.html +++ /dev/null @@ -1,57 +0,0 @@ -<% include( 'elements/cust_pay_or_refund.html', - 'thing' => 'pay_pending', - 'amount_field' => 'paid', - 'name_singular' => 'pending payment', - 'name_verb' => 'pending', - 'disable_link' => 1, - 'disable_by' => 1, #add otaker to cust_pay_pending? - 'html_init' => include('/elements/init_overlib.html'), - 'addl_header' => [ 'Time', 'Payment Status', ], - 'addl_fields' => [ sub { time2str('%r', shift->_date ) }, - $status_sub, - ], - 'redirect_empty' => $redirect_empty, - ) -%> -<%init> - -my %statusaction = ( - 'new' => 'delete', - 'pending' => 'complete', - #'authorized' => '', - 'captured' => 'capture', - #'declined' => '', - #wouldn't need to take action on a done state#'done' -); - -my $edit_pending = - $FS::CurrentUser::CurrentUser->access_right('Edit customer pending payments'); - -my $status_sub = sub { - my $pending = shift; - my $return = $pending->status; - my $action = $statusaction{$pending->status}; - return $return unless $action && $edit_pending; - my $link = include('/elements/popup_link.html', - 'action' => $p. 'edit/cust_pay_pending.html'. - '?paypendingnum='. $pending->paypendingnum. - ";action=$action", - 'label' => $action, - 'color' => '#ff0000', - 'width' => 655, - 'height' => ( $action eq 'delete' ? 480 : 575 ), - 'actionlabel' => ucfirst($action). ' pending payment', - ); - $return. qq! <FONT SIZE="-1">($link)</FONT>!; -}; - -my $redirect_empty = sub { - my $cgi = shift; - if ( $cgi->param('custnum') =~ /^(\d+)$/ ) { - $p. "view/cust_main.cgi?$1"; - } else { - ''; - } -}; - -</%init> |