projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ff35c08
)
meaningful FS::cust_svc::label for svc_www records
author
ivan
<ivan>
Sat, 15 Dec 2001 22:58:33 +0000
(22:58 +0000)
committer
ivan
<ivan>
Sat, 15 Dec 2001 22:58:33 +0000
(22:58 +0000)
FS/FS/cust_svc.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_svc.pm
b/FS/FS/cust_svc.pm
index
9bc563f
..
5fca892
100644
(file)
--- 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::svc_acct_sm;
use FS::svc_domain;
use FS::svc_forward;
+use FS::domain_record;
@ISA = qw( FS::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_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');
} else {
cluck "warning: asked for label of unsupported svcdb; using svcnum";
$tag = $svc_x->getfield('svcnum');
@@
-195,7
+199,7
@@
sub label {
=head1 VERSION
=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
=head1 BUGS