radiopass

lib/Dojo/Controller/Home.pm

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

lib/Dojo/Controller/Users.pm

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

lib/Dojo/Model/Data/cal/q3Event.q

@@ -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,

lib/Dojo/Model/Vdgproc.pm

@@ -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;
 }