diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/CurrentUser.pm | 1 | ||||
| -rw-r--r-- | FS/FS/Schema.pm | 1 | ||||
| -rw-r--r-- | FS/FS/access_user.pm | 3 |
3 files changed, 5 insertions, 0 deletions
diff --git a/FS/FS/CurrentUser.pm b/FS/FS/CurrentUser.pm index 9f2c93f4f..bcd337d2c 100644 --- a/FS/FS/CurrentUser.pm +++ b/FS/FS/CurrentUser.pm @@ -36,6 +36,7 @@ sub load_user { $CurrentUser = qsearchs('access_user', { 'username' => $user, #'_password' => + 'disabled' => '', } ); die "unknown user: $user" unless $CurrentUser; # or bad password diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm index 3e1d68f1b..04dcb8245 100644 --- a/FS/FS/Schema.pm +++ b/FS/FS/Schema.pm @@ -1476,6 +1476,7 @@ sub tables_hashref { '_password', 'varchar', '', $char_d, '', '', 'last', 'varchar', '', $char_d, '', '', 'first', 'varchar', '', $char_d, '', '', + 'disabled', 'char', 'NULL', 1, '', '', ], 'primary_key' => 'usernum', 'unique' => [ [ 'username' ] ], diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm index 37b3b2f37..5d1e183e7 100644 --- a/FS/FS/access_user.pm +++ b/FS/FS/access_user.pm @@ -47,6 +47,8 @@ FS::Record. The following fields are currently supported: =item first - +=item disabled - empty or 'Y' + =back =head1 METHODS @@ -211,6 +213,7 @@ sub check { || $self->ut_text('_password') || $self->ut_text('last') || $self->ut_text('first') + || $self->ut_enum('disabled', [ '', 'Y' ] ) ; return $error if $error; |