Updated Database->view method to work with current version of couchdb

leobm · Mar 22, 2009 · e1a22f3 · e1a22f3 · beppu · Mar 22, 2009
1 parent e4336e0
commit e1a22f3
Showing 1 changed file with 15 additions and 3 deletions.
diff --git a/lib/AnyEvent/CouchDB/Database.pm b/lib/AnyEvent/CouchDB/Database.pm
@@ -265,7 +265,7 @@ sub query {
   my ($self, $map_fun, $reduce_fun, $language, $options) = @_;
   my ($cv, $cb) = cvcb($options);
   $language ||= (ref($map_fun) eq 'CODE') ? 'text/perl' : 'javascript';
-  my $body = {
+  my $body = {      
     language => $language,
     map      => $code_to_string->($map_fun),
   };
@@ -283,8 +283,20 @@ sub query {
 
 sub view {
   my ($self, $name, $options) = @_;
-  my ($cv, $cb) = cvcb($options);
-  http_get($self->uri."_view/".$name.$query->($options), $cb);
+	my ($cv, $cb) = cvcb($options);
+	my ($dname, $vname) = split('/', $name);
+	my $uri = $self->uri."/_design/".$dname."/_view/".$vname;
+	if ($options->{keys}) {
+		my $body = { keys => $options->{keys} };
+		http_request(
+			'POST' => $uri,
+			headers => { 'Content-Type' => 'application/json' },
+			body    => encode_json($body),
+			$cb
+		);
+	} else {
+		http_get($uri.$query->($options), $cb);
+	}
   $cv;
 }