FS/FS/part_svc_router.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

package FS::part_svc_router;
use base qw(FS::Record);

use strict;

sub table { 'part_svc_router'; }

sub check {
  my $self = shift;
  my $error =
       $self->ut_numbern('svcrouternum')
    || $self->ut_foreign_key('svcpart', 'part_svc', 'svcpart')
    || $self->ut_foreign_key('routernum', 'router', 'routernum');
  return $error if $error;
  ''; #no error
}

1;