- 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;
- }
- }
- }
- # If some items could not be moved :
- if (scalar(@notmoveditems) > 0) {
- my $itemlist = join(' ',@notmoveditems);
- push @errors, { code => "CANNOT_MOVE", value => $itemlist };
+ my $from_biblio = Koha::Biblios->find($biblionumber);
+ $from_biblio->items->move_to_biblio($biblio);
+ $from_biblio->article_requests->update({ biblionumber => $ref_biblionumber }, { no_triggers => 1 });