diff options
| author | ivan <ivan> | 2011-09-15 21:34:33 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-09-15 21:34:33 +0000 |
| commit | 9c7db208cd75125dc072788288d4b2ecac6efafe (patch) | |
| tree | 9e6dbafd9423e1bf7a844c90af857e84d37cdb1c | |
| parent | 6636f6ebcf78e7d896d40ec26c18d1ce42796234 (diff) | |
add primary_cust_svc info to list_pkgs call, RT#13656
| -rw-r--r-- | FS/FS/ClientAPI/MyAccount.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm index 6948fcec3..4b77ea5db 100644 --- a/FS/FS/ClientAPI/MyAccount.pm +++ b/FS/FS/ClientAPI/MyAccount.pm @@ -1062,8 +1062,10 @@ sub list_pkgs { { 'svcnum' => $session->{'svcnum'}, 'custnum' => $custnum, 'cust_pkg' => [ map { - { $_->hash, + my $primary_cust_svc = $_->primary_cust_svc; + +{ $_->hash, $_->part_pkg->hash, + #status => $_->status, part_svc => [ map $_->hashref, $_->available_part_svc ], cust_svc => @@ -1081,6 +1083,14 @@ sub list_pkgs { $ref; } $_->cust_svc ], + primary_cust_svc => + $primary_cust_svc + ? { $primary_cust_svc->hash, + label => [ $primary_cust_svc->label ], + finger => $primary_cust_svc->svc_x->finger, #uuh + $primary_cust_svc->part_svc->hash, + } + : {}, #'' ? }; } $cust_main->ncancelled_pkgs ], |