+ my $database = $self->param('database');
+ my $entity = $self->param('entity');
+ my $id = $self->param('id');
+
+ my $e = $data->{$database}->{$entity} || die "no entity $entity";
+
+ if ( ! defined $id2nr->{$database}->{$entity} ) {
+ foreach my $i ( 0 .. $#$e ) {
+ $id2nr->{$database}->{$entity}->{ $e->[$i]->{'$id'} } = $i;
+ }
+ }
+
+ if ( exists $id2nr->{$database}->{$entity}->{$id} ) {
+ my $nr = $id2nr->{$database}->{$entity}->{$id};
+ warn "# entity $id -> $nr\n";
+ $self->render_json( $data->{$database}->{$entity}->[$nr] );
+ } else {
+ die "no entity $entity $id in ", dump( $id2nr->{$database}->{$entity} );
+ }