From 258ea9ebd2bb0f1d24d6659abae617f3a1fe97f4 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 14 Nov 2010 13:55:36 +0100
Subject: [PATCH] add links to biblio and biblioitems

---
 koha/koha2riak-search.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/koha/koha2riak-search.pl b/koha/koha2riak-search.pl
index 0d7df0b..be3d145 100755
--- a/koha/koha2riak-search.pl
+++ b/koha/koha2riak-search.pl
@@ -60,8 +60,12 @@ while(1) {
 #		warn "## $key ",dump($row);
 
 		my $headers;
-		$headers->{Link} = qq|</riak/koha.biblio/$biblionumber>; riaktag="biblio"|
-		if $biblionumber && $key !~ m/biblionumber/;
+		foreach my $reference ( qw(biblio biblioitem) ) {
+			my $col = $reference . 'number';
+			next if $key =~ m/$col/;
+			my $number = $row->{$col} || next;
+			push @{ $headers->{Link} }, qq|</riak/koha.$reference/$number>; riaktag="$reference"|;
+		}
 
 		$riak->request( 'PUT' => "/koha.$table/$key", $row, $headers );
     }
-- 
2.20.1