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