summaryrefslogtreecommitdiff
path: root/FS/FS/part_svc_router.pm
diff options
context:
space:
mode:
authorcvs2git <cvs2git>2008-03-16 19:58:34 +0000
committercvs2git <cvs2git>2008-03-16 19:58:34 +0000
commiteb061f5119325e666f0dff40d4089e5c1df58e17 (patch)
treed55e8fef5aca62eb13bbc8ad20dbdf941c3bd266 /FS/FS/part_svc_router.pm
parent3a17b276638200475d54201fa62566b7440e819a (diff)
This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'.TRIXBOX_2_6
Diffstat (limited to 'FS/FS/part_svc_router.pm')
-rwxr-xr-xFS/FS/part_svc_router.pm33
1 files changed, 0 insertions, 33 deletions
diff --git a/FS/FS/part_svc_router.pm b/FS/FS/part_svc_router.pm
deleted file mode 100755
index df04cc9..0000000
--- a/FS/FS/part_svc_router.pm
+++ /dev/null
@@ -1,33 +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_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;