diff options
| author | Mark Wells <mark@freeside.biz> | 2016-07-06 12:46:38 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2016-07-06 13:32:12 -0700 |
| commit | 6a38d3f3aa3e7953d3da2c6a48466bf600366732 (patch) | |
| tree | 94c279e5192aa246380b8e41ebdf65148571c1cc | |
| parent | 6bed58c0b8187d22efb7cd0aba9d62b6a3b4ca32 (diff) | |
backport fixes
| -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 |