restruc

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

@@ -0,0 +1,10 @@
+
+select distinct
+ concat(mes.nombre,' ',year(evento.fecha_inicio)) as text,
+ date_format(evento.fecha_inicio,'%Y%m') as id
+ from evento
+ inner join mes on month(evento.fecha_inicio)=mes.id
+ where evento.estado=1
+ order by evento.fecha_inicio
+ ;
+

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

@@ -0,0 +1,23 @@
+
+select 
+  date_format(evento.fecha_inicio,'%Y%m') as bid,
+  evento.id as eeid,
+  concat(lugar.municipio,", ",lugar.federativa) as ciudad,
+  concat(lugar.nombre,". ") as lugar,
+  lugar.direccion as dir,
+  case when month(evento.fecha_inicio) = month(evento.fecha_fin) 
+    then concat("Del ", day(evento.fecha_inicio)," al ",day(evento.fecha_fin)," de ",mi.nombre)
+    else concat("Del ",day(evento.fecha_inicio)," de ",mi.nombre," al ",
+      day(evento.fecha_fin)," de ", mo.nombre)
+  end as fecha,
+  curso.nombre as nombre,
+  evento.imagen_chica as imagen_chica
+from evento
+  inner join lugar on evento.lugar_id=lugar.id
+  inner join curso on evento.curso_id=curso.id
+  join mes as mi on mi.id=month(evento.fecha_inicio)
+  join mes as mo on mo.id=month(evento.fecha_fin)
+where evento.estado=1
+order by evento.fecha_inicio
+ ;
+

lib/Dojo/Model/Data/event/qEvent.q

@@ -0,0 +1,29 @@
+ 
+select 
+ 
+ curso.nombre as cname,
+ concat(lugar.municipio,', ',lugar.federativa) as place,
+
+ lugar.direccion as paddr,
+ lugar.observacion as pobs,
+ lugar.municipio as city,
+ evento.precio as cost,
+ case evento.promo_estado when 1 then coalesce(evento.promocion,"") else "" end as promo,
+ curso.temario as csubjects,
+ curso.servicios as cservices,
+
+ lugar.nombre as pname,
+  case when month(evento.fecha_inicio) = month(evento.fecha_fin) 
+  then concat("Del ", day(evento.fecha_inicio)," al ",day(evento.fecha_fin)," de ",mi.nombre)
+  else concat("Del ",day(evento.fecha_inicio)," de ",mi.nombre," al ",
+    day(evento.fecha_fin)," de ", mo.nombre)
+  end as date
+     
+
+ from evento
+ inner join lugar on evento.lugar_id=lugar.id
+ inner join curso on evento.curso_id=curso.id
+ join mes as mi on mi.id=month(evento.fecha_inicio)
+ join mes as mo on mo.id=month(evento.fecha_fin)
+ where evento.estado=1
+ and evento.id = ?

lib/Dojo/Model/Data/pang/benjamin.md

@@ -0,0 +1,5 @@
+Instructor certificado en China por el Beijing Wisdom Healing Center, con más de 5 años de experiencia en el desarrollo de esta herramienta. 
+
+Benjamín ha vivido en carne propia los beneficios de esta ciencia al recuperarse totalmente de una enfermedad autoinmune, crónica, degenerativa e incurable. 
+
+Cuenta con alumnos en 8 países y una comunidad de practicantes enfocados en practicar más y mejor los métodos y lineamientos del ZhiNengQiGong.

lib/Dojo/Model/Data/pang/helen.md

@@ -0,0 +1,5 @@
+Los maestros _Zhang Qing_ (Helen) y  _Qiu Fu Chun_ (Karl). Un ejemplo de congruencia. Personas sencillas, honestas, un verdadero ejemplo de mantenerse en un perfil modesto. Siempre desarrollando GongFu, Gracias a su calidad humana y su bello trabajo, en Vuelo de Grulla, podemos tener los mejores cimientos para ser practicantes que viven los beneficios de ZhiNeng QiGong.
+
+Beijing Wisdom Healing Center se encuentra ubicado en Shichahai en el centro de Beijing, China. 
+
+[zhinengqigong.com](http://www.zhinengqigong.com)

lib/Dojo/Model/Data/pang/pang.md

@@ -0,0 +1,21 @@
+No existen palabras para describir la generosidad de este gran hombre por el cual sentimos un enorme respeto y admiración.
+
+Gracias a su trabajo muchas personas hemos podido recuperar nuestra salud y acercarnos poco a poco a los sueños más hermosos de nuestra vida.
+
+Queremos compartir aquí algunos de sus logros y hacer un homenaje a la raíz del ZhiNengQiGong al que muchos debemos tanto. 
+
+Pang He Ming (庞鹤鸣), también conocido como Pang Ming (庞明), es el creador de la ciencia de ZhiNeng QiGong y el fundador del Centro HuaXia ZhiNeng QiGong. Pang (庞) significa “de tamaño muy grande” o “enorme”. He (鹤) significa “grulla” y Ming (鸣) significa el sonido que hace una grulla al volar. Recibió este nombre de su abuela cuando nació. 
+
+El nombre, Pang Ming, se lo dio a sí mismo cuando alcanzó el éxito en su práctica de QiGong. Aquí, Ming (明) significa “mucha claridad”. 
+
+Pang He Ming nació el 26 de septiembre de 1940 en el condado DingXing de la provincia He Bei en China. En su infancia, recibió la influencia del QiGong tradicional, las artes marciales y la medicina china tradicional, se nutrió de estos en su ciudad natal y recibió mucha información por parte de practicantes de alto nivel. 
+
+En 1958 se graduó en Medicina Occidental de la Universidad Médica de Beijing y trabajó como médico en Beijing. Después de eso, comenzó a aprender artes marciales y QiGong con 19 maestros de manera regular. Al mismo tiempo, aprendió medicina china y se convirtió en un médico de grandes logros. 
+
+Antes de cumplir los 40 años, fue distinguido como el representante más joven de las 63 personas que asistieron a la primera Convención Nacional de Medicina China y Occidental en Beijing. 
+
+En 1979, el profesor Pang formó en Beijing la Sociedad de Investigación de QiGong de Beijing con algunos practicantes e investigadores de QiGong. En la primavera de 1981, anunció formalmente el ZhiNeng QiGong al público. Desde entonces, ha estado enseñando ZhiNeng QiGong en toda China, y sus enseñanzas se extienden a todo el mundo. 
+
+En 1988, fundó la Universidad de ZhiNeng QiGong de HeBei en Shi Jia Zhuang, que posteriormente se trasladó a Qin Huang Dao y cambió su nombre a Centro HuaXia de Investigación y Entrenamiento en ZhiNeng QiGong. Conforme la población estudiantil creció, el profesor Pang fundó el Centro HuaXia de Recuperación de ZhiNeng QiGong en Tang Shan. 
+
+El profesor Pang es el primer erudito que elevó el QiGong tradicional al nivel de ciencia de QiGong.

lib/Dojo/Model/Data/store/qStore.q

@@ -0,0 +1,10 @@
+select 
+ nombre as "titulo",
+ descripcion as "descripcion",
+ precio as "precio",
+ opcion as "opciones",
+ promocion as "promocion",
+ imagen as "imagen"
+ 
+from tienda where precio >= -1;
+

lib/Dojo/Model/Data/tv/qSeries.q

@@ -0,0 +1,5 @@
+ select distinct 
+   replace(grupo,' ','_' ) as "group",
+   grupo as "name"
+ from tv where permiso = 1
+ order by orden;

lib/Dojo/Model/Data/tv/qTable.q

@@ -0,0 +1,8 @@
+select 
+ nombre as "name",
+ vinculo as "link",
+ orden as "order",
+ replace(grupo,' ','_' ) as "group"
+from tv where permiso = 1
+order by orden;
+

lib/Dojo/Model/Vuelo.pm

@@ -12,40 +12,44 @@ use DBI;
 use Dojo::Conf;
 
 sub new { bless {}, shift };
+my $data_path = path('lib/Dojo/Model/Data')->make_path;
 #just for fun
 
 # Read vdg user ===============================================================
-  sub mod{
-    my $q="select nombre,contenido from casa;";
-    my %h=map{ $_->{nombre} => $_->{contenido}}@{_read($q)};
-    return %h;
-  }
+# mensaje del día:mod,rmod,yt,fb,sc
+sub mod{
+ my $q="select nombre,contenido from casa;";
+ my %h=map{ $_->{nombre} => $_->{contenido}}@{_read($q)};
+ return %h;
+}
 
-  sub md_to_hash{
-    my ($self,@filelist)=@_;
-    return  {map { basename($_,".md") => load_md("public/$_")}@filelist};
-  }
+sub pang_md{
+  my $c=shift;
+  my %h = map {$_=> markdown(decode_utf8($data_path->child('pang/'.$_.'.md')->slurp))}
+    ("pang","helen","benjamin");
+  return \%h;
+}
 
-  sub calendar_monthblock {
-    return _read (path("public/home/cal/q1Block.q")->slurp);
-  }
-  sub calendar_events {
-     return _read (path("public/home/cal/q3Event.q")->slurp);
-  }
+sub calendar_monthblock {
+  return _read ($data_path->child("cal/q1Block.q")->slurp);
+}
+sub calendar_events {
+  return _read ($data_path->child("cal/q3Event.q")->slurp);
+}
 
-  sub event{
-    my ($self,$id)=@_;
-    return shift @{ _read (path("public/home/event/qEvent.q")->slurp,$id)};
-  }
-  sub store{
-    return _read (path("public/home/store/qStore.q")->slurp);
-  }
-  sub tv_videos{
-    return _read (path("public/home/tv/qSeries.q")->slurp); #group,name
-  }
-  sub tv_series{
-    return _read (path("public/home/tv/qTable.q")->slurp); #name,order,group
-  }
+sub event{
+  my ($c,$id)=@_;
+  return shift @{ _read ($data_path->child("event/qEvent.q")->slurp,$id)};
+}
+sub store{
+  return _read ($data_path->child("/store/qStore.q")->slurp);
+}
+sub tv_videos{
+  return _read ($data_path->child("/tv/qSeries.q")->slurp); #group,name
+}
+sub tv_series{
+  return _read ($data_path->child("/tv/qTable.q")->slurp); #name,order,group
+}
   sub podcast_txt{
    # return "Hemos desarrollado con mucho cariño ejercicios gratuitos y descargables que pueden ser practicados por cualquier persona aún antes de asistir a uno de los cursos de instrucción."; 
     return decode_utf8(path("public/home/podcast/text.txt")->slurp);
@@ -90,13 +94,13 @@ sub new { bless {}, shift };
   sub eimgList{ return [get_names("public/home/cal/img/")] }
 #==============================================================================
 # Write vdg user ==============================================================
- sub contact{
-    my $c=shift;
-    my $q="insert into entrada (nombre,correo,pagina,texto,fecha) values(?,?,?,?,now() )" ;
-    my @a=@_;
-    #simple method to ignore spam  
-    return  _writemsg($q,@a) unless $a[3]=~m/http|website|\<a/;   
-    return 0;
+sub contact{
+  my $c=shift;
+  my $q="insert into entrada (nombre,correo,pagina,texto,fecha) values(?,?,?,?,now() )" ;
+  my @a=@_;
+  #simple method to ignore spam  
+  return  _writemsg($q,@a) unless $a[3]=~m/http|website|\<a/;   
+  return 0;
 }
 #==============================================================================
 # Write vdg admin ==============================================================