From 2eb5fc5cdbe002fd17a4d3ee5bde71b4f5422f8b Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 2 May 2005 06:32:10 +0000
Subject: move httemplate/search/svc_domain to the new search template along
 with svc_www and svc_forward

---
 FS/FS/svc_Common.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'FS')

diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm
index db2fbbe86..80d5e21a6 100644
--- a/FS/FS/svc_Common.pm
+++ b/FS/FS/svc_Common.pm
@@ -6,6 +6,7 @@ use FS::Record qw( qsearch qsearchs fields dbh );
 use FS::cust_svc;
 use FS::part_svc;
 use FS::queue;
+use FS::cust_main;
 
 @ISA = qw( FS::Record );
 
@@ -546,6 +547,20 @@ sub clone_kludge_unsuspend {
   shift;
 }
 
+=item cust_name
+
+Given a svc_ object that contains fields from cust_main (say, from a
+JOINed search.  See httemplate/search/svc_* for examples), returns the 
+equivalent of "$svc_x->cust_svc->cust_pkg->name" (but much more efficient),
+or "(unlinked)" if this service is not linked to a customer.
+
+=cut
+
+sub cust_name {
+  my $svc_x = shift;
+  $svc_x->custnum ? FS::cust_main::name($svc_x) : '(unlinked)';
+}
+
 =back
 
 =head1 BUGS
-- 
cgit v1.2.1