projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sha512 crypt() export
[freeside.git]
/
FS
/
FS
/
rate_prefix.pm
diff --git
a/FS/FS/rate_prefix.pm
b/FS/FS/rate_prefix.pm
index
ce780fe
..
37c61cb
100644
(file)
--- a/
FS/FS/rate_prefix.pm
+++ b/
FS/FS/rate_prefix.pm
@@
-1,11
+1,9
@@
package FS::rate_prefix;
package FS::rate_prefix;
+use base qw(FS::Record);
use strict;
use strict;
-use vars qw( @ISA );
-use FS::Record qw( qsearch qsearchs dbh );
-use FS::rate_region;
-
-@ISA = qw(FS::Record);
+use FS::Record qw( dbh ); #qw( qsearch qsearchs dbh );
+use FS::lata;
=head1 NAME
=head1 NAME
@@
-108,6
+106,9
@@
sub check {
|| $self->ut_number('countrycode')
|| $self->ut_numbern('npa')
|| $self->ut_numbern('nxx')
|| $self->ut_number('countrycode')
|| $self->ut_numbern('npa')
|| $self->ut_numbern('nxx')
+ || $self->ut_foreign_keyn('latanum', 'lata', 'latanum')
+ || $self->ut_textn('state')
+ || $self->ut_textn('ocn')
;
return $error if $error;
;
return $error if $error;
@@
-118,13
+119,6
@@
sub check {
Returns the rate region (see L<FS::rate_region>) for this prefix.
Returns the rate region (see L<FS::rate_region>) for this prefix.
-=cut
-
-sub rate_region {
- my $self = shift;
- qsearchs('rate_region', { 'regionnum' => $self->regionnum } );
-}
-
=back
=head1 CLASS METHODS
=back
=head1 CLASS METHODS