diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2016-03-11 18:42:14 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2016-03-11 18:42:14 -0800 |
| commit | b85f59f20ab425b072fe1739945cce361c72004d (patch) | |
| tree | c2ab28fade9607aab9ec44cfeb7a1c5e5e42a426 /FS/FS/cust_main/Packages.pm | |
| parent | f52ea63bd7a746a3776647a5dfbb50f9df18611d (diff) | |
fix customer package browse selection, RT#39822
Diffstat (limited to 'FS/FS/cust_main/Packages.pm')
| -rw-r--r-- | FS/FS/cust_main/Packages.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/cust_main/Packages.pm b/FS/FS/cust_main/Packages.pm index 1c921d6..13c2945 100644 --- a/FS/FS/cust_main/Packages.pm +++ b/FS/FS/cust_main/Packages.pm @@ -434,7 +434,7 @@ sub all_pkgs { my $self = shift; my $extra_qsearch = ref($_[0]) ? shift : { @_ }; - return $self->num_pkgs unless wantarray || keys %$extra_qsearch; + return $self->num_pkgs($extra_qsearch) unless wantarray; my @cust_pkg = (); if ( $self->{'_pkgnum'} && ! keys %$extra_qsearch ) { @@ -464,11 +464,11 @@ Returns all non-cancelled packages (see L<FS::cust_pkg>) for this customer. sub ncancelled_pkgs { my $self = shift; - my $extra_qsearch = ref($_[0]) ? shift : {}; + my $extra_qsearch = ref($_[0]) ? shift : { @_ }; local($DEBUG) = $FS::cust_main::DEBUG if $FS::cust_main::DEBUG > $DEBUG; - return $self->num_ncancelled_pkgs unless wantarray; + return $self->num_ncancelled_pkgs($extra_qsearch) unless wantarray; my @cust_pkg = (); if ( $self->{'_pkgnum'} ) { |