X-Git-Url: http://git.rot13.org/?p=angular-mojolicious.git;a=blobdiff_plain;f=angular-server.pl;h=1f253a3f2dbbe18a4ba641e4aa6b14d5ca45ec13;hp=4471a066cc582c294a21b424b277ec7806f4a118;hb=f7b616f2dc0fd09346cdb61be53d0d119bb62354;hpb=922cb7dec4d0ab188cd7e39608da05b481f00f08

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 );
 };