- my $itemnumbers = get_itemnumbers_of($biblionumber);
- foreach my $itemnumber (@{ $itemnumbers->{$biblionumber} }) {
- my $res = MoveItemFromBiblio($itemnumber, $biblionumber, $ref_biblionumber);
- if (not defined $res) {
- push @notmoveditems, $itemnumber;
+ my $items = Koha::Items->search({ biblionumber => $biblionumber });
+ while ( my $item = $items->next) {
+ my $res = MoveItemFromBiblio( $item->itemnumber, $biblionumber, $ref_biblionumber );
+ if ( not defined $res ) {
+ push @notmoveditems, $item->itemnumber;
+ }