diff options
author | ivan <ivan> | 2002-02-07 22:29:35 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-02-07 22:29:35 +0000 |
commit | 69c6e80a7253f927af1780a3e0dd3fcf50110599 (patch) | |
tree | 43d1c9acd2974702d2df85acdf472f34884ffba3 /FS/FS/cust_bill_pay.pm | |
parent | 88d4198ff452581be05e3018b3e23db564545525 (diff) |
delete payments
Diffstat (limited to 'FS/FS/cust_bill_pay.pm')
-rw-r--r-- | FS/FS/cust_bill_pay.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/FS/FS/cust_bill_pay.pm b/FS/FS/cust_bill_pay.pm index 1c838b932..913704bef 100644 --- a/FS/FS/cust_bill_pay.pm +++ b/FS/FS/cust_bill_pay.pm @@ -125,12 +125,16 @@ sub insert { =item delete -Currently unimplemented (accounting reasons). +Deletes this payment application, unless the closed flag for the parent payment +(see L<FS::cust_pay>) is set. =cut sub delete { - return "Can't (yet?) delete cust_bill_pay records!"; + my $self = shift; + return "Can't delete application for closed payment" + if $self->cust_pay->closed =~ /^Y/i; + $self->SUPER::delete(@_); } =item replace OLD_RECORD @@ -195,7 +199,7 @@ sub cust_bill { =head1 VERSION -$Id: cust_bill_pay.pm,v 1.11 2002-01-24 16:58:47 ivan Exp $ +$Id: cust_bill_pay.pm,v 1.12 2002-02-07 22:29:34 ivan Exp $ =head1 BUGS |