lib/SQLSession/CurrentUser.pm

use strict;
use warnings;

package SQLSession::CurrentUser;
use base qw/Jifty::CurrentUser/;

sub _init {
        my $self = shift;
        my %args = (@_);

        warn "_init";

        if ( delete $args{'_bootstrap'} ) {
                $self->is_bootstrap_user(1);
        } elsif( keys %args ) {
                $self->user_object( SQLSession::Model::User->new( current_user => $self ) );
                $self->user_object->load_by_cols( %args );
        }

        $self->SUPER::_init(%args);
}

sub role {
        my $self = shift;
        my $role = shift;

        return 0 unless ($self->current_user->id);

        warn "role is '$role' for ", $self->current_user->user_object->email, "?";

        return 1 if ($self->current_user->user_object->email eq 'dpavlin@rot13.org');

        return 0;
}


1	dpavlin	45	use strict;
2			use warnings;
3
4			package SQLSession::CurrentUser;
5			use base qw/Jifty::CurrentUser/;
6
7			sub _init {
8			my $self = shift;
9			my %args = (@_);
10
11			warn "_init";
12
13			if ( delete $args{'_bootstrap'} ) {
14			$self->is_bootstrap_user(1);
15			} elsif( keys %args ) {
16			$self->user_object( SQLSession::Model::User->new( current_user => $self ) );
17			$self->user_object->load_by_cols( %args );
18			}
19
20			$self->SUPER::_init(%args);
21			}
22
23			sub role {
24			my $self = shift;
25			my $role = shift;
26
27			return 0 unless ($self->current_user->id);
28
29			warn "role is '$role' for ", $self->current_user->user_object->email, "?";
30
31			return 1 if ($self->current_user->user_object->email eq 'dpavlin@rot13.org');
32
33			return 0;
34			}
35
36