[freeside-commits] freeside/FS/FS cust_credit_bill_pkg.pm,1.4,1.5

Ivan,,, ivan at wavetail.420.am
Sat Dec 12 15:53:34 PST 2009


Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv22059

Modified Files:
	cust_credit_bill_pkg.pm 
Log Message:
better reporting for tax credits, RT#4729

Index: cust_credit_bill_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_credit_bill_pkg.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- cust_credit_bill_pkg.pm	12 Dec 2009 22:35:20 -0000	1.4
+++ cust_credit_bill_pkg.pm	12 Dec 2009 23:53:32 -0000	1.5
@@ -2,9 +2,14 @@
 
 use strict;
 use vars qw( @ISA );
-use FS::Record qw( qsearch qsearchs );
+use FS::Record qw( qsearchs ); # qsearch );
+use FS::cust_main_Mixin;
+use FS::cust_credit_bill;
+use FS::cust_bill_pkg;
+use FS::cust_bill_pkg_tax_location;
+use FS::cust_bill_pkg_tax_rate_location;
 
- at ISA = qw(FS::Record);
+ at ISA = qw( FS::cust_main_Mixin FS::Record );
 
 =head1 NAME
 
@@ -130,6 +135,11 @@
   $self->SUPER::check;
 }
 
+sub cust_credit_bill {
+  my $self = shift;
+  qsearchs('cust_credit_bill', { 'creditbillnum' => $self->creditbillnum } );
+}
+
 =back
 
 =head1 BUGS



More information about the freeside-commits mailing list