freeside/FS/FS cust_credit.pm,1.20,1.21

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv28951/FS/FS

Modified Files:
	cust_credit.pm 
Log Message:
credit report, add some links to sales/credits/receipts summary, move payment search to template

Index: cust_credit.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_credit.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- cust_credit.pm	9 Jan 2004 22:39:22 -0000	1.20
+++ cust_credit.pm	23 Apr 2004 12:19:40 -0000	1.21
@@ -300,6 +300,18 @@
   sprintf( "%.2f", $amount );
 }
 
+=item cust_main
+
+Returns the customer (see L<FS::cust_main>) for this credit.
+
+=cut
+
+sub cust_main {
+  my $self = shift;
+  qsearchs( 'cust_main', { 'custnum' => $self->custnum } );
+}
+
+
 =back
 
 =head1 BUGS