diff options
author | cvs2git <cvs2git> | 2004-04-07 09:08:35 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2004-04-07 09:08:35 +0000 |
commit | 022491d9d2723ca4d7d0718cdb1fd67e7652428e (patch) | |
tree | fc1e50c0d78ecc401ef2214a6a11ee07242be0f8 /FS/FS/part_svc_router.pm | |
parent | 35effa1bf4ac902547615c816960bbc8db8e7256 (diff) |
This commit was manufactured by cvs2svn to create tag 'NET_WHOIS_RAW_0_31'.NET_WHOIS_RAW_0_31
Diffstat (limited to 'FS/FS/part_svc_router.pm')
-rwxr-xr-x | FS/FS/part_svc_router.pm | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/FS/FS/part_svc_router.pm b/FS/FS/part_svc_router.pm deleted file mode 100755 index 0b23ab5..0000000 --- a/FS/FS/part_svc_router.pm +++ /dev/null @@ -1,32 +0,0 @@ -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_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; |