[freeside-commits] freeside/FS/FS cust_pkg.pm,1.120,1.121

[Ivan,,,]

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

Modified Files:
	cust_pkg.pm 
Log Message:
part_pkg caching should speedup display of lots of packages, RT#5083

Index: cust_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pkg.pm,v
retrieving revision 1.120
retrieving revision 1.121
diff -u -d -r1.120 -r1.121
--- cust_pkg.pm	29 Mar 2009 11:52:22 -0000	1.120
+++ cust_pkg.pm	30 Mar 2009 00:32:02 -0000	1.121
@@ -1220,8 +1220,10 @@
 
 =cut
 
+use Carp qw(cluck);
 sub part_pkg {
   my $self = shift;
+  cluck "part_pkg called" if $DEBUG > 1 && ! $self->{'_pkgpart'};
   #exists( $self->{'_pkgpart'} )
   $self->{'_pkgpart'}
     ? $self->{'_pkgpart'}