Lines 96-102
if ($merge) {
Link Here
|
96 |
my $biblio = Koha::Biblios->find($ref_biblionumber); |
96 |
my $biblio = Koha::Biblios->find($ref_biblionumber); |
97 |
foreach my $biblionumber (@biblionumbers) { |
97 |
foreach my $biblionumber (@biblionumbers) { |
98 |
my $from_biblio = Koha::Biblios->find($biblionumber); |
98 |
my $from_biblio = Koha::Biblios->find($biblionumber); |
99 |
$biblio->adopt_items_from_biblio($from_biblio); |
99 |
$from_biblio->items->move_to_biblio($biblio); |
100 |
$from_biblio->article_requests->update({ biblionumber => $ref_biblionumber }, { no_triggers => 1 }); |
100 |
$from_biblio->article_requests->update({ biblionumber => $ref_biblionumber }, { no_triggers => 1 }); |
101 |
} |
101 |
} |
102 |
|
102 |
|
Lines 161-167
if ($merge) {
Link Here
|
161 |
# Moving suggestions |
161 |
# Moving suggestions |
162 |
$sth_suggestions->execute($ref_biblionumber, $biblionumber); |
162 |
$sth_suggestions->execute($ref_biblionumber, $biblionumber); |
163 |
|
163 |
|
164 |
# Moving orders (orders linked to items of frombiblio have already been moved by adopt_items_from_biblio) |
164 |
# Moving orders (orders linked to items of frombiblio have already been moved by move_to_biblio) |
165 |
my @allorders = GetOrdersByBiblionumber($biblionumber); |
165 |
my @allorders = GetOrdersByBiblionumber($biblionumber); |
166 |
foreach my $myorder (@allorders) { |
166 |
foreach my $myorder (@allorders) { |
167 |
$myorder->{'biblionumber'} = $ref_biblionumber; |
167 |
$myorder->{'biblionumber'} = $ref_biblionumber; |