diff options
| -rw-r--r-- | FS/FS/part_svc.pm | 6 | ||||
| -rw-r--r-- | FS/FS/part_svc_msgcat.pm | 7 |
2 files changed, 13 insertions, 0 deletions
diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index 01b8e1074..60889c6af 100644 --- a/FS/FS/part_svc.pm +++ b/FS/FS/part_svc.pm @@ -635,6 +635,12 @@ sub svc_locale { $part_svc_msgcat->svc; } +# 3.x stub +sub part_svc_msgcat { + my $self = shift; + qsearch('part_svc_msgcat', { 'svcpart' => $self->svcpart }); +} + =back =head1 CLASS METHODS diff --git a/FS/FS/part_svc_msgcat.pm b/FS/FS/part_svc_msgcat.pm index 6d69198ec..796f9d8c3 100644 --- a/FS/FS/part_svc_msgcat.pm +++ b/FS/FS/part_svc_msgcat.pm @@ -3,6 +3,7 @@ use base qw( FS::Record ); use strict; use FS::Locales; +use FS::part_svc; =head1 NAME @@ -117,6 +118,12 @@ sub check { $self->SUPER::check; } +# 3.x stub +sub part_svc { + my $self = shift; + FS::part_svc->by_key($self->svcpart); +} + =back =head1 BUGS |