===================================================================
RCS file: /cvs/RT/Invoicing/lib/RTI/State.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- RT/Invoicing/lib/RTI/State.pm	2012/08/18 21:21:54	1.6
+++ RT/Invoicing/lib/RTI/State.pm	2012/11/28 02:24:04	1.7
@@ -112,6 +112,15 @@
         : $self->{_table}->{unpaid};
 }
 
+sub credits {
+    my ( $self, $custid ) = @_;
+
+    $self->_match_payments;
+    return defined $custid
+        ? $self->{_table}->{credit}->{$custid}
+        : $self->{_table}->{credit};
+}
+
 sub save {
     my ($self) = @_;