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

@@ -56,13 +56,15 @@ sub startup {
$logged_in->get('/radio')->to('home#radio');
# ===================
# login user grulla =
# login any temp pass=
my $usert = $r->under('/')->to('users#is_tmp');
# common grulla user
my $user = $r->under('/')->to('users#is_grulla');
$user->any('/ccast')->to('home#bcast');
# personal
my $guest = $r->under('/')->to('users#is_grulla_tmp');
$guest->any('/bcast')->to('home#bcast');
$guest->any('/radiop')->to('home#radiop');
# ===================
# admin =======================================================================

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);

View File

@@ -2,7 +2,14 @@
select
date_format(t.fecha_inicio,'%Y%m') as bid,
t.id as eeid,
concat(l.municipio,", ",l.federativa) as ciudad,
case
when l.municipio = '' or l.municipio is null
then l.federativa
when l.federativa = '' or l.federativa is null
then l.municipio
else
concat(l.municipio,", ",l.federativa)
end as ciudad,
concat(l.nombre,". ") as lugar,
l.direccion as dir,
day(t.fecha_inicio) as dini,

View File

@@ -124,8 +124,8 @@ $$students[$_ -1][0]
}
push (@ra, [$basetxta,"Inscripciones",'david@chaos.foundation']);
push (@ra, [$basetxta,"Inscripciones",'benjamuga@gmail.com']);
push (@ra, [$basetxta,"Inscripciones",'mmunoz@harvest.com']);
# push (@ra, [$basetxta,"Inscripciones",'benjamuga@gmail.com']);
# push (@ra, [$basetxta,"Inscripciones",'mmunoz@harvest.com']);
return @ra;
}