radiopass
This commit is contained in:
@@ -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;
|
||||
|
||||
@@ -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);
|
||||
|
||||
Reference in New Issue
Block a user