X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=koha%2FRiakSearch.pm;h=b80c16cf1f59a5f8161df3d9ee429b505c79f73c;hb=9881f01109eb5547d6743c522c6d43fc2030c334;hp=be2bcb557f0b05527555c48e5d7ba2cc11d046d9;hpb=ee7039d6605575c7e0fcea02ecb40288b0b57016;p=NoSQL-toys.git

diff --git a/koha/RiakSearch.pm b/koha/RiakSearch.pm
index be2bcb5..b80c16c 100644
--- a/koha/RiakSearch.pm
+++ b/koha/RiakSearch.pm
@@ -19,6 +19,7 @@ sub new {
 	return bless {
 		ua  => $ua,
 		url => $url,
+		args => '',
 	}, $class;
 }
 
@@ -28,8 +29,10 @@ sub request {
 	my $full_url = $self->{url} . "/riak/$uri";
 	$full_url =~ s{//+}{/}g;
 	$full_url =~ s{http:/}{http://};
+	$full_url .= '?' . $self->{args} if $self->{args};
 
 	$headers->{'Content-Type'} = 'application/json' unless exists $headers->{'Content-Type'};
+	$headers->{'Host'} = $1 if $full_url =~ m{http://([^/]+)};
 
 	my $req;
 
@@ -41,7 +44,6 @@ sub request {
 	}
 
 	$req->header( $_ => $headers->{$_} ) foreach keys %$headers;
-	$req->header( 'Host' => $1 ) if $self->{url} =~ m{http://([^/]+)};
 
 #	warn "## $method $full_url ", dump($req, $content);
 	my $response = $self->{ua}->request($req);