diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/Schema.pm | 1 | ||||
| -rw-r--r-- | FS/FS/pkg_class.pm | 12 |
2 files changed, 13 insertions, 0 deletions
diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm index ae0541331..bf84f0b2b 100644 --- a/FS/FS/Schema.pm +++ b/FS/FS/Schema.pm @@ -2780,6 +2780,7 @@ sub tables_hashref { 'classname', 'varchar', '', $char_d, '', '', 'categorynum', 'int', 'NULL', '', '', '', 'disabled', 'char', 'NULL', 1, '', '', + 'fcc_ds0s', 'int', 'NULL', '', '', '', ], 'primary_key' => 'classnum', 'unique' => [], diff --git a/FS/FS/pkg_class.pm b/FS/FS/pkg_class.pm index 51d0455a5..8132dd514 100644 --- a/FS/FS/pkg_class.pm +++ b/FS/FS/pkg_class.pm @@ -49,6 +49,8 @@ Number of associated pkg_category (see L<FS::pkg_category>) Disabled flag, empty or 'Y' +=item fcc_ds0s - Optional DS0 equivalency number for FCC form 477 + =back =head1 METHODS @@ -65,6 +67,16 @@ L<"insert">. sub table { 'pkg_class'; } sub _target_table { 'part_pkg'; } +sub check { + my $self = shift; + my $error = $self->ut_numbern('fcc_ds0s') + || $self->SUPER::check + ; + return $error if $error; + + ''; +} + =item insert Adds this package class to the database. If there is an error, returns the |