From: ivan <ivan>
Date: Mon, 22 Dec 2003 21:01:13 +0000 (+0000)
Subject: allow credits to be modified at API level
X-Git-Tag: freeside_1_4_2beta1~340
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=9af0401a31d8828da22b0e9fc60c01a4c0998f6a;p=freeside.git

allow credits to be modified at API level
---

diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm
index 284d59de2..22a0cdfae 100644
--- a/FS/FS/cust_credit.pm
+++ b/FS/FS/cust_credit.pm
@@ -141,7 +141,10 @@ posted.
 =cut
 
 sub replace {
-  return "Can't modify credit!"
+  #return "Can't modify credit!"
+  my $self = shift;
+  return "Can't modify closed credit" if $self->closed =~ /^Y/i;
+  $self->SUPER::replace(@_);
 }
 
 =item check
@@ -240,13 +243,9 @@ sub credited {
 
 =back
 
-=head1 VERSION
-
-$Id: cust_credit.pm,v 1.16 2002-06-04 14:35:52 ivan Exp $
-
 =head1 BUGS
 
-The delete method.
+The delete method.  The replace method.
 
 =head1 SEE ALSO