From 14783ddd1917b67292711ce6f7443f46f1af02e6 Mon Sep 17 00:00:00 2001
From: khoff <khoff>
Date: Wed, 30 Mar 2005 21:22:44 +0000
Subject: [PATCH] Have to pass @_ to FS::svc_www::domain_record in case we're
 really a FS::h_svc_www object.

---
 FS/FS/cust_svc.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/cust_svc.pm b/FS/FS/cust_svc.pm
index c91eba103..e98695376 100644
--- a/FS/FS/cust_svc.pm
+++ b/FS/FS/cust_svc.pm
@@ -308,7 +308,7 @@ sub _svc_label {
   } elsif ( $svcdb eq 'svc_domain' ) {
     $tag = $svc_x->getfield('domain');
   } elsif ( $svcdb eq 'svc_www' ) {
-    my $domain_record = $svc_x->domain_record;
+    my $domain_record = $svc_x->domain_record(@_);
     $tag = $domain_record->zone;
   } elsif ( $svcdb eq 'svc_broadband' ) {
     $tag = $svc_x->ip_addr;
-- 
2.11.0