From 968bee2fe4a8f00cc52525881032cf1575c640f4 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 15 Dec 2001 22:58:33 +0000
Subject: [PATCH] meaningful FS::cust_svc::label for svc_www records

---
 FS/FS/cust_svc.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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
 
-- 
2.11.0