|
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; |