FS/FS/part_svc_router.pm

   1 package FS::part_svc_router;
   2 use base qw(FS::Record);
   3
   4 use strict;
   5
   6 sub table { 'part_svc_router'; }
   7
   8 sub check {
   9   my $self = shift;
  10   my $error =
  11        $self->ut_numbern('svcrouternum')
  12     || $self->ut_foreign_key('svcpart', 'part_svc', 'svcpart')
  13     || $self->ut_foreign_key('routernum', 'router', 'routernum');
  14   return $error if $error;
  15   ''; #no error
  16 }
  17
  18 1;