From: ivan <ivan>
Date: Wed, 10 Dec 2003 22:50:49 +0000 (+0000)
Subject: add part_referral.disabled
X-Git-Tag: freeside_1_4_2beta1~351
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=4398d53a857bd3a7f478d4a000fad8a1c4e6b50f;p=freeside.git

add part_referral.disabled
---

diff --git a/FS/FS/part_referral.pm b/FS/FS/part_referral.pm
index 23885dffd..90ce7fef2 100644
--- a/FS/FS/part_referral.pm
+++ b/FS/FS/part_referral.pm
@@ -38,6 +38,8 @@ The following fields are currently supported:
 
 =item referral - Text name of this advertising source
 
+=item disabled - Disabled flag, empty or 'Y'
+
 =back
 
 =head1 NOTE
@@ -91,9 +93,17 @@ replace methods.
 sub check {
   my $self = shift;
 
-  $self->ut_numbern('refnum')
+  my $error = $self->ut_numbern('refnum')
     || $self->ut_text('referral')
   ;
+  return $error if $error;
+
+  if ( $self->dbdef_table->column('disabled') ) {
+    $error = $self->ut_enum('disabled', [ '', 'Y' ] );
+    return $error if $error;
+  }
+
+  '';
 }
 
 =back