X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_credit.pm;h=6185fc4722fa754860086cc7d5800d4155689f9a;hp=0f8ac97037d3586ec2f9ec16e8b55eaad5e573b1;hb=90393980e5f2859ee1e186fa461f48f5129e803e;hpb=383170a5c4bcb6f2f621f8d1f6dac5c2cb1d348d

diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm
index 0f8ac9703..6185fc472 100644
--- a/FS/FS/cust_credit.pm
+++ b/FS/FS/cust_credit.pm
@@ -270,14 +270,17 @@ sub delete {
 
 }
 
-=item replace OLD_RECORD
+=item replace [ OLD_RECORD ]
 
 You can, but probably shouldn't modify credits... 
 
+Replaces the OLD_RECORD with this one in the database, or, if OLD_RECORD is not
+supplied, replaces this record.  If there is an error, returns the error,
+otherwise returns false.
+
 =cut
 
 sub replace {
-  #return "Can't modify credit!"
   my $self = shift;
   return "Can't modify closed credit" if $self->closed =~ /^Y/i;
   $self->SUPER::replace(@_);