radiopass

This commit is contained in:
mynah
2020-05-27 15:28:41 -05:00
parent 8cede80fe7
commit 45efdf7934
8 changed files with 73 additions and 7 deletions

View File

@@ -115,6 +115,13 @@ sub radio{
$c->stash($c->dbv->mod);
$c->stash(nick=>$c->session("nick"));
}
sub radiop{
my $c=shift;
$c->stash(layout=> "defaultContact");
$c->stash($c->dbv->mod);
$c->stash(nick=>$c->session("nick"));
}
sub candy{
my $c=shift;

View File

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