- 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;
- }
- }
- }
- # 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 });