From 5ffebc5c151bd680cdae15e4720ba788ad51121b Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 29 Mar 2003 02:19:44 +0000
Subject: [PATCH] cust_svc and svc_x methods

---
 FS/FS/part_export.pm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm
index b46d8439e..789e8450d 100644
--- a/FS/FS/part_export.pm
+++ b/FS/FS/part_export.pm
@@ -305,6 +305,30 @@ sub part_svc {
   #confess "FS::part_export::part_svc deprecated";
 }
 
+=item svc_x
+
+Returns a list of associate FS::svc_* records.
+
+=cut
+
+sub svc_x {
+  my $self = shift;
+  map { $_->svc_x } $self->cust_svc;
+}
+
+=item cust_svc
+
+Returns a list of associated FS::cust_svc records.
+
+=cut
+
+sub cust_svc {
+  my $self = shift;
+  map { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
+    grep { qsearch('cust_svc', { 'svcpart' => $_->svcpart } ) }
+      $self->export_svc;
+}
+
 =item export_svc
 
 Returns a list of associated FS::export_svc records.
-- 
2.11.0