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_numbern('svcrouternum')
  17     || $self->ut_foreign_key('svcpart', 'part_svc', 'svcpart')
  18     || $self->ut_foreign_key('routernum', 'router', 'routernum');
  19   return $error if $error;
  20   ''; #no error
  21 }
  22
  23 sub router {
  24   my $self = shift;
  25   return qsearchs('router', { routernum => $self->routernum });
  26 }
  27
  28 sub part_svc {
  29   my $self = shift;
  30   return qsearchs('part_svc', { svcpart => $self->svcpart });
  31 }
  32
  33 1;