backport fixes

diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm
index 01b8e10..60889c6 100644 (file)
--- 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 6d69198..796f9d8 100644 (file)
--- 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