X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_referral.pm;h=c0858c0eda558eda67dd4115619469e5224aa4d7;hp=f30ddad0184a0948f7a12a25abff76610b38cb2f;hb=f11341c6ca588f1ff5e46a857540e88d49d7647a;hpb=58d44fbe5eb9ab32e6d87063a4a3b22ddba9a828

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