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