diff options
author | ivan <ivan> | 2011-09-15 21:34:31 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-09-15 21:34:31 +0000 |
commit | 5919af89229f1edf93037e3e2c1fd11ea5c04acf (patch) | |
tree | 8a769d3804579966a7d3ebc4c99cc970f911d399 /FS | |
parent | 801de7d60f7dfce482c6ce2ff7378e705ff1bfdf (diff) |
add primary_cust_svc info to list_pkgs call, RT#13656
Diffstat (limited to 'FS')
-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 6948fce..4b77ea5 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 ], |