FS/FS/part_svc_router.pm

   1 package FS::part_svc_router;
   2
   3 use strict;
   4 use vars qw( @ISA );
   5 use FS::Record qw(qsearchs);
   6 use FS::router;
   7 use FS::part_svc;
   8
   9 @ISA = qw(FS::Record);
  10
  11 sub table { 'part_svc_router'; }
  12
  13 sub check {
  14   my $self = shift;
  15   my $error =
  16     $self->ut_foreign_key('svcpart', 'part_svc', 'svcpart')
  17     || $self->ut_foreign_key('routernum', 'router', 'routernum');
  18   return $error if $error;
  19   ''; #no error
  20 }
  21
  22 sub router {
  23   my $self = shift;
  24   return qsearchs('router', { routernum => $self->routernum });
  25 }
  26
  27 sub part_svc {
  28   my $self = shift;
  29   return qsearchs('part_svc', { svcpart => $self->svcpart });
  30 }
  31
  32 1;