From: ivan <ivan>
Date: Mon, 22 Dec 2003 21:01:10 +0000 (+0000)
Subject: allow credits to be modified at API level
X-Git-Tag: NET_WHOIS_RAW_0_31~221
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=6092bc23dc3e17a45d75c8cac30cb8ad9efba89f;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 e668abd73..18ab1c361 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.17 2003-08-05 00:20:41 khoff Exp $
-
 =head1 BUGS
 
-The delete method.
+The delete method.  The replace method.
 
 =head1 SEE ALSO