X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=FS%2FFS%2Fcust_credit_bill.pm;h=449f011495b9d8cff25724e3e32b325fad037f81;hb=4c480e0ef1029d4c29ebb02b05dd7b2e285b7163;hp=206b0ff1b478bb277212ce5476d7ad8f4d664ca9;hpb=c7a9fb2edba3264683b8f6195f7dba53210af0b2;p=freeside.git

diff --git a/FS/FS/cust_credit_bill.pm b/FS/FS/cust_credit_bill.pm
index 206b0ff1b..449f01149 100644
--- a/FS/FS/cust_credit_bill.pm
+++ b/FS/FS/cust_credit_bill.pm
@@ -96,7 +96,10 @@ Currently unimplemented.
 =cut
 
 sub delete {
-  return "Can't unapply credit!"
+  my $self = shift;
+  return "Can't delete application for closed credit"
+    if $self->cust_credit->closed =~ /^Y/i;
+  $self->SUPER::delete(@_);
 }
 
 =item replace OLD_RECORD