diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-01-14 15:14:06 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-01-14 15:14:06 -0800 |
| commit | 81c95889e746b174f70956e408795c2c653c3010 (patch) | |
| tree | 398478779fadf26b6baf139ad4a86e2d7fed370d | |
| parent | 85a657f7c32fc5548ca17f7f5024955c87c07f43 (diff) | |
respect part_svc.selfservice_access hidden provisioning services in stock portal, RT#20715
| -rw-r--r-- | FS/FS/ClientAPI/MyAccount.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm index 8b840fcb4..08de83def 100644 --- a/FS/FS/ClientAPI/MyAccount.pm +++ b/FS/FS/ClientAPI/MyAccount.pm @@ -1555,7 +1555,10 @@ sub list_pkgs { pkg_label => $_->pkg_label, status => $_->status, part_svc => - [ map $_->hashref, $_->available_part_svc ], + [ map { $_->hashref } + grep { $_->selfservice_access ne 'hidden' } + $_->available_part_svc + ], cust_svc => [ map { my $ref = { $_->hash, label => [ $_->label ], @@ -1569,7 +1572,9 @@ sub list_pkgs { $ref->{svchash}->{svcpart} = $_->part_svc->svcpart if $_->part_svc->svcdb eq 'svc_phone'; # hack $ref; - } $_->cust_svc + } + grep { $_->part_svc->selfservice_access ne 'hidden' } + $_->cust_svc ], primary_cust_svc => $primary_cust_svc |