X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fagent_type.pm;fp=FS%2FFS%2Fagent_type.pm;h=e0f749500f578d72e2fdc464a80393624e591e78;hp=5d6b94e0cb292c0c2ef07587fe56d9cb9d74d924;hb=e68a2a20972de41485c438c46d197b5abeee3267;hpb=289958e5f402e896e561e6911081b9cd36c4c098

diff --git a/FS/FS/agent_type.pm b/FS/FS/agent_type.pm
index 5d6b94e0c..e0f749500 100644
--- a/FS/FS/agent_type.pm
+++ b/FS/FS/agent_type.pm
@@ -45,9 +45,17 @@ FS::Record.  The following fields are currently supported:
 
 =over 4
 
-=item typenum - primary key (assigned automatically for new agent types)
+=item typenum
 
-=item atype - Text name of this agent type
+primary key (assigned automatically for new agent types)
+
+=item atype
+
+Text name of this agent type
+
+=item disabled
+
+Disabled flag, empty or 'Y'
 
 =back
 
@@ -103,8 +111,9 @@ sub check {
   my $self = shift;
 
   $self->ut_numbern('typenum')
-  or $self->ut_text('atype')
-  or $self->SUPER::check;
+    || $self->ut_text('atype')
+    || $self->ut_enum('disabled', [ '', 'Y' ] )
+    || $self->SUPER::check;
 
 }