From: Mark Wells Date: Wed, 6 Jul 2016 19:46:38 +0000 (-0700) Subject: backport fixes X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=6a38d3f3aa3e7953d3da2c6a48466bf600366732 backport fixes --- 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