diff options
author | Othmar Gsenger <otti@wirdorange.org> | 2012-01-25 18:55:43 +0000 |
---|---|---|
committer | Othmar Gsenger <otti@wirdorange.org> | 2012-01-25 18:55:43 +0000 |
commit | dbb74ceda992bd4d630982de3610c64b84beee47 (patch) | |
tree | 5e48e5e3fd9c141eaa6b2d542b3f6b665d3507e9 /local | |
parent | added fuse support (diff) |
added admin functionality
ADD COLUMN admin (BOOL) to TABLE OWNERS
Diffstat (limited to 'local')
-rw-r--r-- | local/db.pm | 2 | ||||
-rw-r--r-- | local/user.pm | 6 |
2 files changed, 7 insertions, 1 deletions
diff --git a/local/db.pm b/local/db.pm index 60c72b3..dbb5d7d 100644 --- a/local/db.pm +++ b/local/db.pm @@ -20,7 +20,7 @@ local::db::category->has_many(download => 'local::db::download'); package local::db::owner; use base 'local::db::dbi'; local::db::owner->table('owner'); -local::db::owner->columns(All => qw/owner_id name quoata quota_used/); +local::db::owner->columns(All => qw/owner_id name quoata quota_used admin/); local::db::owner->has_many(download => 'local::db::download'); local::db::owner->has_many(seen => 'local::db::seen'); local::db::owner->has_many(ip => 'local::db::ip'); diff --git a/local/user.pm b/local/user.pm index a0e24fd..0b32034 100644 --- a/local/user.pm +++ b/local/user.pm @@ -41,6 +41,12 @@ sub obj return local::db::owner->retrieve($self->{id}); } +sub is_admin +{ + my $self = shift; + my $user = $self->obj; + return ($user->admin and $user->admin ne 'FALSE')?1:0; +} sub get_name { |