diff options
| author | ivan <ivan> | 2002-10-23 15:50:24 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-10-23 15:50:24 +0000 |
| commit | 420ca8f6f11b0465499498fabeb94b1b8d44a385 (patch) | |
| tree | eac5c67f27bab96b1a0a50c48c5f39f30a60d236 | |
| parent | ecd7a1cdcae16f2f59c9c75cac8aeec2e3c3d7a1 (diff) | |
unapply payments
| -rwxr-xr-x | httemplate/view/cust_main.cgi | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi index a1a47ea74..7dbdc1356 100755 --- a/httemplate/view/cust_main.cgi +++ b/httemplate/view/cust_main.cgi @@ -470,6 +470,11 @@ function cust_pay_areyousure(href) { == true) window.location.href = href; } +function cust_pay_unapply_areyousure(href) { + if (confirm("Are you sure you want to unapply this payment?") + == true) + window.location.href = href; +} </SCRIPT> END @@ -524,8 +529,12 @@ if ( $conf->config('payby-default') ne 'HIDE' ) { my $delete = $payment->closed !~ /^Y/i && $conf->exists('deletepayments') ? qq! (<A HREF="javascript:cust_pay_areyousure('${p}misc/delete-cust_pay.cgi?!. $payment->paynum. qq!')">delete</A>)! : ''; + my $unapply = + $payment->closed !~ /^Y/i && $conf->exists('unapplypayments') + ? qq! (<A HREF="javascript:cust_pay_unapply_areyousure('${p}misc/unapply-cust_pay.cgi?!. $payment->paynum. qq!')">unapply</A>)! + : ''; push @history, - "$date\tPayment, Invoice #$invnum ($payby$payinfo)$delete\t\t$paid\t\t\t$target"; + "$date\tPayment, Invoice #$invnum ($payby$payinfo)$delete$unapply\t\t$paid\t\t\t$target"; } my(@cust_credit_bill)= |