summaryrefslogtreecommitdiff
path: root/FS/FS/part_svc_router.pm
diff options
context:
space:
mode:
authorcvs2git <cvs2git>2004-04-07 09:08:35 +0000
committercvs2git <cvs2git>2004-04-07 09:08:35 +0000
commit022491d9d2723ca4d7d0718cdb1fd67e7652428e (patch)
treefc1e50c0d78ecc401ef2214a6a11ee07242be0f8 /FS/FS/part_svc_router.pm
parent35effa1bf4ac902547615c816960bbc8db8e7256 (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-xFS/FS/part_svc_router.pm32
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;