diff options
Diffstat (limited to 'FS/FS/reg_code.pm')
-rw-r--r-- | FS/FS/reg_code.pm | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/FS/FS/reg_code.pm b/FS/FS/reg_code.pm index f48ccf0..fd944d2 100644 --- a/FS/FS/reg_code.pm +++ b/FS/FS/reg_code.pm @@ -1,13 +1,10 @@ package FS::reg_code; +use base qw(FS::Record); use strict; -use vars qw( @ISA ); -use FS::Record qw(qsearch dbh); -use FS::agent; +use FS::Record qw( dbh ); # qsearch qsearchs dbh ); use FS::reg_code_pkg; -@ISA = qw(FS::Record); - =head1 NAME FS::reg_code - One-time registration codes @@ -198,14 +195,6 @@ sub part_pkg { Returns all FS::reg_code_pkg records for this registration code. -=cut - -sub reg_code_pkg { - my $self = shift; - qsearch('reg_code_pkg', { 'codenum' => $self->codenum } ); -} - - =back =head1 BUGS |