lib/Transports/CurrentUser.pm

use warnings;
use strict;


package Transports::CurrentUser;

use base qw(Jifty::CurrentUser);

=head2 new PARAMHASH

Instantiate a new current user object, loading the user by paramhash:

   my $item = Transports::Model::Item->new( Transports::CurrentUser->new(email => 'user@site'));

if you give the param 
    _bootstrap => 1

your object will be marked as a bootstrap user. You can use that to do an endrun around acls.

=cut


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

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

=head2 admin

Is current user administrator?

=cut

sub admin {
        my $self = shift;
        return unless ($self->user_object);
        return $self->user_object->admin;
}

=head2 can_import

Can current user initiate import of request?

=cut

sub can_import {
        my $self = shift;
        return unless ($self->user_object);
        return $self->user_object->can_import || $self->user_object->admin;
}

1;
1	dpavlin	5	use warnings;
2			use strict;
3
4
5			package Transports::CurrentUser;
6
7			use base qw(Jifty::CurrentUser);
8
9			=head2 new PARAMHASH
10
11			Instantiate a new current user object, loading the user by paramhash:
12
13			my $item = Transports::Model::Item->new( Transports::CurrentUser->new(email => 'user@site'));
14
15			if you give the param
16			_bootstrap => 1
17
18			your object will be marked as a bootstrap user. You can use that to do an endrun around acls.
19
20			=cut
21
22
23
24			sub _init {
25			my $self = shift;
26			my %args = (@_);
27
28			if (delete $args{'_bootstrap'} ) {
29			$self->is_bootstrap_user(1);
30			} elsif (keys %args) {
31			$self->user_object(Transports::Model::User->new(current_user => $self));
32			$self->user_object->load_by_cols(%args);
33			}
34			$self->SUPER::_init(%args);
35			}
36
37	dpavlin	31	=head2 admin
38	dpavlin	5
39	dpavlin	31	Is current user administrator?
40
41			=cut
42
43			sub admin {
44			my $self = shift;
45			return unless ($self->user_object);
46			return $self->user_object->admin;
47			}
48
49	dpavlin	46	=head2 can_import
50
51			Can current user initiate import of request?
52
53			=cut
54
55			sub can_import {
56			my $self = shift;
57			return unless ($self->user_object);
58			return $self->user_object->can_import \|\| $self->user_object->admin;
59			}
60
61	dpavlin	5	1;