From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 14 Jan 2013 23:14:06 +0000 (-0800)
Subject: respect part_svc.selfservice_access hidden provisioning services in stock portal... 
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=81c95889e746b174f70956e408795c2c653c3010;p=freeside.git

respect part_svc.selfservice_access hidden provisioning services in stock portal, RT#20715
---

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