lib/Arh/CurrentUser.pm

use strict;
use warnings;

package Arh::CurrentUser;
use base qw/Jifty::CurrentUser Arh::Model::User/;

use Data::Dump qw/dump/;

=head2 _init

This function will load user data from database

=cut

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

        if ( delete $args{'_bootstrap'} ) {
                $self->is_bootstrap_user(1);
        } elsif( keys %args ) {
                my $u = Arh::Model::User->new;
                $u->load_by_cols( %args );
                if ( $u->id ) {
                        Jifty->log->info("loaded user ",dump( \%args ));
                        $self->user_object( $u );
                } else {
                        Jifty->log->error("Can't load user ",dump( \%args ));
                }
        }

        # be superuser
        #$self->is_superuser(1);

}


1;
1	use strict;
2	use warnings;
3
4	package Arh::CurrentUser;
5	use base qw/Jifty::CurrentUser Arh::Model::User/;
6
7	use Data::Dump qw/dump/;
8
9	=head2 _init
10
11	This function will load user data from database
12
13	=cut
14
15	sub _init {
16	my $self = shift;
17	my %args = (@_);
18
19	if ( delete $args{'_bootstrap'} ) {
20	$self->is_bootstrap_user(1);
21	} elsif( keys %args ) {
22	my $u = Arh::Model::User->new;
23	$u->load_by_cols( %args );
24	if ( $u->id ) {
25	Jifty->log->info("loaded user ",dump( \%args ));
26	$self->user_object( $u );
27	} else {
28	Jifty->log->error("Can't load user ",dump( \%args ));
29	}
30	}
31
32	# be superuser
33	#$self->is_superuser(1);
34
35	}
36
37
38
39	1;