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