sigue bcast

This commit is contained in:
mynah
2018-07-27 18:55:22 -05:00
parent c2be824f0f
commit 57b9744444
8 changed files with 30 additions and 33 deletions

View File

@@ -41,7 +41,7 @@ sub is_admin {
}
sub is_grulla {
my $self = shift;
return 1 if (($self->session('pmid')//0)==2);
return 1 if (($self->session('pmid')//0)>=2);
$self->session(ureq=>2,prev=>$self->url_for);
$self->redirect_to('login');
}