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

add part_referral.disabled
---

diff --git a/FS/FS/part_referral.pm b/FS/FS/part_referral.pm
index f30ddad01..c0858c0ed 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,10 +93,17 @@ replace methods.
 sub check {
   my $self = shift;
 
-  $self->ut_numbern('refnum')
+  my $error = $self->ut_numbern('refnum')
     || $self->ut_text('referral')
-    || $self->SUPER::check
   ;
+  return $error if $error;
+
+  if ( $self->dbdef_table->column('disabled') ) {
+    $error = $self->ut_enum('disabled', [ '', 'Y' ] );
+    return $error if $error;
+  }
+
+  $self->SUPER::check;
 }
 
 =back