X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_credit_bill.pm;h=bd76c2e1ad8b4128229bc626380e1412da31da78;hp=88a732bc6d456c7f9874cb36a5096e22facdf405;hb=e975ed0585280f4cbb90b02f57114dedc43f58be;hpb=9c6cd7a1ee5f65e3a608b3d3119005d90ecbf4a5

diff --git a/FS/FS/cust_credit_bill.pm b/FS/FS/cust_credit_bill.pm
index 88a732bc6..bd76c2e1a 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