diff options
author | ivan <ivan> | 2006-08-07 02:44:29 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-08-07 02:44:29 +0000 |
commit | 7aae40398f1c8ed42424f1694640c9796a580d22 (patch) | |
tree | e976d4331ca7c117ac96df47c7f1b7b6c2bb5ccf /FS/FS | |
parent | 786b78c646f892e1ae80006fb7870960780ea5db (diff) |
add internal user disable-ing
Diffstat (limited to 'FS/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 9f2c93f..bcd337d 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 3e1d68f..04dcb82 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 37b3b2f..5d1e183 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; |