correctly handle plurar table names

this requires us to remove plural 's' at end before appending number

diff --git a/koha/koha2riak-search.pl b/koha/koha2riak-search.pl
index be3d145..6ce1867 100755 (executable)
--- a/koha/koha2riak-search.pl
+++ b/koha/koha2riak-search.pl
@@ -60,8 +60,9 @@ while(1) {
 #              warn "## $key ",dump($row);
 
                my $headers;
-               foreach my $reference ( qw(biblio biblioitem) ) {
-                       my $col = $reference . 'number';
+               foreach my $reference ( qw(biblio biblioitems borrowers items) ) {
+                       my $singular = $1 if $reference =~ m/^(\w+?)s?$/;
+                       my $col = $singular . 'number';
                        next if $key =~ m/$col/;
                        my $number = $row->{$col} || next;
                        push @{ $headers->{Link} }, qq|</riak/koha.$reference/$number>; riaktag="$reference"|;