sub table_name_fixer {
my ( $self, $q ) = @_;
$q =~ s/biblio\.(?=isbn|ean|publisher)/biblio.biblioitem./g;
$q =~ s{biblio\.(?=isbn|ean|publisher)}{biblio\.biblioitem\.}g
if $q =~ m/.*(isbn|ean|publisher).*/;
return $q;
}
-