en el moras

lib/Dojo/Controller/Data.pm

@@ -15,6 +15,14 @@ sub simple{
   $c->render(json=>$json);
 }
 
+sub admin{
+  my $c=shift;
+  my $n=$c->param("dreq")//"";
+  my $json = {status => "304"};
+  $json= ($c->dbv->rmsgid($c->param('id')))[0] if ($n =~m/^mensajes$/); 
+  $c->render(json=>$json);
+}
+#==== candy  =====================================================
 sub candy{
   my $c=shift;
   my $r="-1";
@@ -57,6 +65,7 @@ sub candy{
   } 
   sub disconnectT{ $t->close();}  
 
+#=========================================================
 1 
 __END__ 
 

lib/Dojo/Controller/Home.pm

@@ -101,13 +101,36 @@ sub admin{
   if ($c->param("hup")=~/Cambiar/){
     $c->dbv->umod($c->param('link'),$c->param('update'));
   };
-  my $v=(load_module("home/admin"))[0];
-  my ($x,$w)= load_module("home/admin/home");
-  $c->stash( merge_hash($x,$v) );
-  $c->stash(apend => ["home/admin/home"]);
-  $c->stash( map{ $_->{nombre} => $_->{contenido}} @{$c->dbv->mod});
-
-
+  if ($c->param("section")=~/home/){
+    my $v=(load_module("home/admin"))[0];
+    my ($x,$w)= load_module("home/admin/home");
+    $c->stash( merge_hash($x,$v) );
+    $c->stash(apend => ["home/admin/home"]);
+    $c->stash( map{ $_->{nombre} => $_->{contenido}} @{$c->dbv->mod});
+  }
+  elsif ( $c->param("section")=~/radio/ ){
+    $c->stash(
+      merge_hash(   (load_module("home/admin"))[0],
+        merge_hash( (load_module("home/admin/candySwitch"))[0],
+                    (load_module("home/admin/radio"))[0],
+    )));
+    $c->stash(apend => ["home/admin/radio","home/admin/candySwitch"]);
+    $c->stash(%{($c->dbv->radio)->[0]});
+    $c->stash($Dojo::Conf::radio);
+  }
+  elsif ( $c->param("section")=~/event/ ){
+  }
+  elsif ( $c->param("section")=~/mensajes/ ){
+    $c->stash(merge_hash( 
+      (load_module("home/admin"))[0],
+      (load_module("home/admin/mensajes"))[0]
+    ));
+    $c->stash(apend => ["home/admin/mensajes"]);
+    my $h = $c->dbv->rmsg;
+    $c->stash( h=>$h  );
+    
+  }
+  
 }
 
 1;