X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_svc.pm;h=e64862f9d38cf708f157d30cb407ad3fdfbddc2e;hb=dec15062e2df6f615e42d5f87193133a3e072826;hp=511fcf32e478593b0f1b4cc1f6beb84f6740b4fe;hpb=6bed58c0b8187d22efb7cd0aba9d62b6a3b4ca32;p=freeside.git

diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm
index 511fcf32e..e64862f9d 100644
--- a/FS/FS/cust_svc.pm
+++ b/FS/FS/cust_svc.pm
@@ -1079,6 +1079,13 @@ sub tickets {
   (@tickets);
 }
 
+sub API_getinfo {
+  my $self = shift;
+  my $svc_x = $self->svc_x;
+ +{ ( map { $_=>$self->$_ } $self->fields ),
+    ( map { $_=>$svc_x->$_ } $svc_x->fields ),
+  };
+}
 
 =back