[freeside-commits] branch master updated. 8364f7794d5ab8e64b472bdda43f48038cdd9656

[Ivan]

The branch, master has been updated
       via  8364f7794d5ab8e64b472bdda43f48038cdd9656 (commit)
      from  c7ad63f42570c80ba01e00326e62a8ef66ba86c3 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 8364f7794d5ab8e64b472bdda43f48038cdd9656
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Mon May 7 19:39:09 2012 -0700

    add display_svcnum & pkg_label to list_svcs selfservice API call, RT#17617

diff --git a/FS/FS/ClientAPI/MyAccount.pm b/FS/FS/ClientAPI/MyAccount.pm
index ac02fd6..88a5675 100644
--- a/FS/FS/ClientAPI/MyAccount.pm
+++ b/FS/FS/ClientAPI/MyAccount.pm
@@ -1603,12 +1603,14 @@ sub list_svcs {
             my $part_pkg = $cust_pkg->part_pkg;
 
             my %hash = (
-              'svcnum'     => $_->svcnum,
-              'svcdb'      => $svcdb,
-              'label'      => $label,
-              'value'      => $value,
-              'pkg_status' => $cust_pkg->status,
-              'readonly'   => ( $part_svc->selfservice_access eq 'readonly' ),
+              'svcnum'         => $_->svcnum,
+              'display_svcnum' => $_->display_svcnum,
+              'svcdb'          => $svcdb,
+              'label'          => $label,
+              'value'          => $value,
+              'pkg_label'      => $cust_pkg->pkg_label,
+              'pkg_status'     => $cust_pkg->status,
+              'readonly'       => ($part_svc->selfservice_access eq 'readonly'),
             );
 
             if ( $svcdb eq 'svc_acct' ) {
diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm
index 1fd8406..604c654 100644
--- a/FS/FS/cust_svc.pm
+++ b/FS/FS/cust_svc.pm
@@ -344,6 +344,18 @@ sub check {
   $self->SUPER::check;
 }
 
+=item display_svcnum 
+
+Returns the displayed service number for this service: agent_svcid if it has a
+value, svcnum otherwise
+
+=cut
+
+sub display_svcnum {
+  my $self = shift;
+  $self->agent_svcid || $self->svcnum;
+}
+
 =item part_svc
 
 Returns the definition for this service, as a FS::part_svc object (see

-----------------------------------------------------------------------

Summary of changes:
 FS/FS/ClientAPI/MyAccount.pm |   14 ++++++++------
 FS/FS/cust_svc.pm            |   12 ++++++++++++
 2 files changed, 20 insertions(+), 6 deletions(-)