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__