diff options
author | ivan <ivan> | 2001-12-15 22:58:33 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-12-15 22:58:33 +0000 |
commit | 968bee2fe4a8f00cc52525881032cf1575c640f4 (patch) | |
tree | 54afa94d12e4e9d31049159b68ff6499a22fcb80 | |
parent | ff35c08c280ed66f88a23bd6122475362c0f8076 (diff) |
meaningful FS::cust_svc::label for svc_www records
-rw-r--r-- | FS/FS/cust_svc.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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 |