[freeside-commits] branch FREESIDE_2_3_BRANCH updated. 5bb3332639ffadd71b00ad41fd2a7cbb038092ab

[Ivan]

The branch, FREESIDE_2_3_BRANCH has been updated
       via  5bb3332639ffadd71b00ad41fd2a7cbb038092ab (commit)
      from  f05c62c69477ba73031b7251fdd094ee013dbdff (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 5bb3332639ffadd71b00ad41fd2a7cbb038092ab
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Mon Jan 6 21:29:03 2014 -0800

    backport cust_svc_unsorted method from master, RT#26097

diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm
index 740a562..e2d3375 100644
--- a/FS/FS/cust_pkg.pm
+++ b/FS/FS/cust_pkg.pm
@@ -2032,14 +2032,30 @@ sub num_cust_event {
 
 =item cust_svc [ OPTION => VALUE ... ] (current usage)
 
+=item cust_svc_unsorted [ OPTION => VALUE ... ] 
+
 Returns the services for this package, as FS::cust_svc objects (see
 L<FS::cust_svc>).  Available options are svcpart and svcdb.  If either is
 spcififed, returns only the matching services.
 
+As an optimization, use the cust_svc_unsorted version if you are not displaying
+the results.
+
 =cut
 
 sub cust_svc {
   my $self = shift;
+  cluck "cust_pkg->cust_svc called" if $DEBUG > 2;
+  $self->_sort_cust_svc( $self->cust_svc_unsorted_arrayref(@_) );
+}
+
+sub cust_svc_unsorted {
+  my $self = shift;
+  @{ $self->cust_svc_unsorted_arrayref(@_) };
+}
+
+sub cust_svc_unsorted_arrayref {
+  my $self = shift;
 
   return () unless $self->num_cust_svc(@_);
 
@@ -2064,13 +2080,7 @@ sub cust_svc {
     $search{extra_sql} = ' AND svcdb = '. dbh->quote( $opt{'svcdb'} );
   }
 
-  cluck "cust_pkg->cust_svc called" if $DEBUG > 2;
-
-  #if ( $self->{'_svcnum'} ) {
-  #  values %{ $self->{'_svcnum'}->cache };
-  #} else {
-    $self->_sort_cust_svc( [ qsearch(\%search) ] );
-  #}
+  [ qsearch(\%search) ];
 
 }
 

-----------------------------------------------------------------------

Summary of changes:
 FS/FS/cust_pkg.pm |   24 +++++++++++++++++-------
 1 files changed, 17 insertions(+), 7 deletions(-)