From: ivan <ivan>
Date: Sat, 15 Dec 2001 22:58:33 +0000 (+0000)
Subject: meaningful FS::cust_svc::label for svc_www records
X-Git-Tag: freeside_1_4_0pre11~184
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=968bee2fe4a8f00cc52525881032cf1575c640f4

meaningful FS::cust_svc::label for svc_www records
---

diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm
index 9bc563f40..5fca892cd 100644
--- a/FS/FS/cust_svc.pm
+++ b/FS/FS/cust_svc.pm
@@ -11,6 +11,7 @@ use FS::svc_acct;
 use FS::svc_acct_sm;
 use FS::svc_domain;
 use FS::svc_forward;
+use FS::domain_record;
 
 @ISA = qw( FS::Record );
 
@@ -184,6 +185,9 @@ sub label {
     }
   } elsif ( $svcdb eq 'svc_domain' ) {
     $tag = $svc_x->getfield('domain');
+  } elsif ( $svcdb eq 'svc_www' ) {
+    my $domain = qsearchs( 'domain_record', { 'recnum' => $svc_x->recnum } );
+    $tag = $domain->reczone;
   } else {
     cluck "warning: asked for label of unsupported svcdb; using svcnum";
     $tag = $svc_x->getfield('svcnum');
@@ -195,7 +199,7 @@ sub label {
 
 =head1 VERSION
 
-$Id: cust_svc.pm,v 1.7 2001-11-30 00:04:38 ivan Exp $
+$Id: cust_svc.pm,v 1.8 2001-12-15 22:58:33 ivan Exp $
 
 =head1 BUGS