diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-01-14 15:14:04 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-01-14 15:14:04 -0800 |
| commit | 8f57d93002c86360c65613ab5c179205059fd10e (patch) | |
| tree | 0917ca931a231d77791794030e63de55c2791b0d | |
| parent | 04ea9274b34b21b515891b781b37d05b6aba5eda (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 92fcd0c..6ce6586 100644 --- a/FS/FS/ClientAPI/MyAccount.pm +++ b/FS/FS/ClientAPI/MyAccount.pm @@ -1586,7 +1586,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 ], @@ -1600,7 +1603,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 |