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);
}

=head2 role

Test if user has role

  Jifty->web->current_user->role( 'edit' );

=cut

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

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

        my $r = SQLSession::Model::Role->new();
        $r->load_by_cols(
                user_id => $self->current_user->id,
                role => $role
        );

        warn "role is '$role' for ", $self->current_user->user_object->email, " ",
                $r->id ? 'OK' : 'DENY', $/;

        return $r->id;

        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	dpavlin	47	=head2 role
24
25			Test if user has role
26
27			Jifty->web->current_user->role( 'edit' );
28
29			=cut
30
31	dpavlin	45	sub role {
32			my $self = shift;
33			my $role = shift;
34
35			return 0 unless ($self->current_user->id);
36
37	dpavlin	47	my $r = SQLSession::Model::Role->new();
38			$r->load_by_cols(
39			user_id => $self->current_user->id,
40			role => $role
41			);
42	dpavlin	45
43	dpavlin	47	warn "role is '$role' for ", $self->current_user->user_object->email, " ",
44			$r->id ? 'OK' : 'DENY', $/;
45	dpavlin	45
46	dpavlin	47	return $r->id;
47
48	dpavlin	45	return 0;
49			}
50
51