From 6a38d3f3aa3e7953d3da2c6a48466bf600366732 Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Wed, 6 Jul 2016 12:46:38 -0700 Subject: [PATCH] backport fixes --- FS/FS/part_svc.pm | 6 ++++++ FS/FS/part_svc_msgcat.pm | 7 +++++++ 2 files changed, 13 insertions(+) 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 -- 2.11.0