From 4de19e4303d8d692fb772b0a332be325bab50db3 Mon Sep 17 00:00:00 2001
From: levinse <levinse>
Date: Thu, 23 Jun 2011 01:56:21 +0000
Subject: add optional fcc_ds0s to pkg_class, RT13057

---
 FS/FS/Schema.pm    |  1 +
 FS/FS/pkg_class.pm | 12 ++++++++++++
 2 files changed, 13 insertions(+)

(limited to 'FS')

diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm
index c08e4bba8..fb17f0bab 100644
--- a/FS/FS/Schema.pm
+++ b/FS/FS/Schema.pm
@@ -2508,6 +2508,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
-- 
cgit v1.2.1