From 097081fe8c7e0a5227f92188d331586c0ebf6b31 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 8 Nov 2010 19:26:57 +0100
Subject: [PATCH] fix update in CouchDB by passing _rev around

---
 angular-server.pl | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/angular-server.pl b/angular-server.pl
index 4471a06..1f253a3 100755
--- a/angular-server.pl
+++ b/angular-server.pl
@@ -23,15 +23,23 @@ sub _couchdb_put {
 
 	my $json = Mojo::JSON->new->encode( $data );
 
+	my $rev;
+
 	warn "# _couchdb_put $url = $json";
 	$client->put( "$couchdb/$url" => $json => sub {
 		my ($client,$tx) = @_;
+		my ($message, $code) = $tx->error;
+		my $response = $tx->res->json;
+		warn "## response $code ",dump($response);
 		if ($tx->error) {
-			die "ERROR CouchDB ",$tx->error;
+			die "ERROR $code $message";
 		}
-		my $response = $tx->res->json;
-		warn "## CouchDB response ",dump($response);
+		return
+		$rev = $response->{rev};
 	})->process;
+
+	warn "## rev = $rev";
+	return $rev;
 }
 
 sub _couchdb_get {
@@ -160,7 +168,8 @@ any [ 'post' ] => '/data/:database/:entity' => sub {
 
 	$json->{'$id'} ||= $id;	# make sure $id is in there
 
-	_couchdb_put "/$database/$entity.$id" => $json;
+	my $rev = _couchdb_put "/$database/$entity.$id" => $json;
+	$json->{_rev} = $rev;
 
 	_render_jsonp( $self,  $json );
 };
-- 
2.20.1