From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 30 Oct 2010 13:37:35 +0000 (+0200)
Subject: fixed list_databases
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=dc5525e0cd32ff8b9ed4fe06ae8f426b06249183;p=angular-mojolicious.git

fixed list_databases
---

diff --git a/angular-server.pl b/angular-server.pl
index f91d8f5..f84f2eb 100755
--- a/angular-server.pl
+++ b/angular-server.pl
@@ -41,9 +41,9 @@ get '/data/:database' => sub {
 	my $self = shift;
 	my $database = $self->param('database');
 	my $list_databases = { name => $database };
-	foreach my $database ( keys %{ $data->{ $database }} ) {
-		my $count = scalar keys %{ $data->{$database} };
-		$list_databases->{entities}->{$database} = $count;
+	foreach my $entity ( keys %{ $data->{ $database }} ) {
+		my $count = $#{ $data->{$database}->{$entity} } + 1;
+		$list_databases->{entities}->{$entity} = $count;
 		$list_databases->{document_count} += $count;
 	}
 	warn dump($list_databases);