X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FUser.pm;h=7e53bb4355492fa1f87f2cb9b59882c6fef3eb5b;hb=7cb56251fa02e6d1f39ec90a78791118fcc5d287;hp=47ab694c23d80bd073f792ffe046ea7d20024019;hpb=d1906a56713cd28fa8f7e617e34700c5bb515240;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/User.pm b/lib/Text/Tradition/User.pm
index 47ab694..7e53bb4 100644
--- a/lib/Text/Tradition/User.pm
+++ b/lib/Text/Tradition/User.pm
@@ -10,6 +10,7 @@ with qw(KiokuX::User);
 has 'password'   => (is => 'rw', required => 1);
 ## Change this default active value if you want/need to have an admin confirm a user after they self-create.
 has 'active'     => (is => 'rw', default => sub { 1; });
+has 'role'       => (is => 'rw', default => sub { 'user' });
 # 'traits' => ['Array'] ?
 # https://metacpan.org/module/Moose::Meta::Attribute::Native::Trait::Array
 has 'traditions' => (is => 'rw', 
@@ -38,6 +39,12 @@ sub remove_tradition {
     $self->traditions(\@traditions);
 }
 
+sub is_admin {
+    my ($self) = @_;
+
+    return $self->role eq 'admin';
+}
+
 1;
 
 =head1 NAME