sub GetBiblioItemInfosOf {
my @biblioitemnumbers = @_;
return unless @biblioitemnumbers;
my $biblioitemnumber_values = @biblioitemnumbers ? join( ',', @biblioitemnumbers ) : "''";
my $query = "
sub GetItemInfosOf {
my @itemnumbers = @_;
return unless @itemnumbers;
my $itemnumber_values = @itemnumbers ? join( ',', @itemnumbers ) : "''";
-