freeside/FS/FS svc_Common.pm,1.24,1.25

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv29551/FS/FS

Modified Files:
	svc_Common.pm 
Log Message:
move httemplate/search/svc_domain to the new search template along with svc_www and svc_forward

Index: svc_Common.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_Common.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- svc_Common.pm	27 Mar 2005 23:21:11 -0000	1.24
+++ svc_Common.pm	2 May 2005 06:32:09 -0000	1.25
@@ -6,6 +6,7 @@
 use FS::cust_svc;
 use FS::part_svc;
 use FS::queue;
+use FS::cust_main;
 
 @ISA = qw( FS::Record );
 
@@ -544,6 +545,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