c405/dojo
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

un poco turbio

Browse Source
This commit is contained in:
mynah
2018-07-27 16:45:29 -05:00
parent a2567e8936
commit 6811b19471
16 changed files with 229 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
lib/Dojo/Controller/Users.pm
View File

@@ -6,11 +6,16 @@ use Dojo::Support qw{ merge_hash load_module };
sub login {
my $self = shift;
#falta si el usuario ya está registrado y llama a login.
if ($self->session('ureq')//1 == 4){
if (($self->session('ureq')//0) == 4){
$self->stash( css=>["users/login/cssaForm.css"]);
$self->stash(template=>'users/logina') ;
$self->stash(layout=>"default");
}
elsif (($self->session('ureq')//0) == 2){
$self->stash( css=>["users/login/cssuForm.css"]);
$self->stash(template=>'users/loginu') ;
$self->stash(layout=>"defaultContact");
}
else{
$self->stash( css=>["users/login/cssForm.css"]);
$self->stash(layout=>"defaultContact");
@@ -19,21 +24,27 @@ sub login {
my $pass = $self->param('pass') //'';
return $self->render unless my $pmid = $self->dbg->check($user, $pass);
$self->session(user => $user, pmid=>$pmid, nick=> $self->param('nick'));
$self->redirect_to($self->session('prev'));
$self->redirect_to($self->session('prev')) ;
}
sub is_logged {
my $self = shift;
return 1 if $self->session('user');
$self->session(prev=>$self->url_for);
$self->session(ureq=>1,prev=>$self->url_for);
$self->redirect_to('login');
}
sub is_admin {
my $self = shift;
return 1 if ($self->session('pmid')==4);
return 1 if ( ($self->session('pmid') //0) == 4);
$self->session(ureq=>4,prev=>$self->url_for);
$self->redirect_to('login');
}
sub is_grulla {
my $self = shift;
return 1 if (($self->session('pmid')//0)==2);
$self->session(ureq=>2,prev=>$self->url_for);
$self->redirect_to('login');
}
sub logout {
my $self = shift;