projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT#34289: Flag service fields as mandatory
[freeside.git]
/
FS
/
FS
/
rate_region.pm
diff --git
a/FS/FS/rate_region.pm
b/FS/FS/rate_region.pm
index
f4a0ab1
..
fec540e
100644
(file)
--- a/
FS/FS/rate_region.pm
+++ b/
FS/FS/rate_region.pm
@@
-1,13
+1,11
@@
package FS::rate_region;
package FS::rate_region;
+use base qw(FS::Record);
use strict;
use strict;
-use vars qw( @ISA );
use FS::Record qw( qsearch qsearchs dbh );
use FS::rate_prefix;
use FS::rate_detail;
use FS::Record qw( qsearch qsearchs dbh );
use FS::rate_prefix;
use FS::rate_detail;
-@ISA = qw(FS::Record);
-
=head1 NAME
FS::rate_region - Object methods for rate_region records
=head1 NAME
FS::rate_region - Object methods for rate_region records
@@
-36,7
+34,10
@@
inherits from FS::Record. The following fields are currently supported:
=item regionnum - primary key
=item regionnum - primary key
-=item regionname
+=item regionname - name of the region
+
+=item exact_match - 'Y' if "prefixes" in this region really represent
+complete phone numbers. Null if they represent prefixes (the usual case).
=back
=back
@@
-233,6
+234,7
@@
sub check {
my $error =
$self->ut_numbern('regionnum')
|| $self->ut_text('regionname')
my $error =
$self->ut_numbern('regionnum')
|| $self->ut_text('regionname')
+ || $self->ut_flag('exact_match')
;
return $error if $error;
;
return $error if $error;