|
Lines 81-87
if ($merge) {
Link Here
|
| 81 |
$record->leader(GetMarcBiblio({ biblionumber => $ref_biblionumber })->leader()); |
81 |
$record->leader(GetMarcBiblio({ biblionumber => $ref_biblionumber })->leader()); |
| 82 |
|
82 |
|
| 83 |
my $frameworkcode = $input->param('frameworkcode'); |
83 |
my $frameworkcode = $input->param('frameworkcode'); |
| 84 |
my @notmoveditems; |
|
|
| 85 |
|
84 |
|
| 86 |
# Modifying the reference record |
85 |
# Modifying the reference record |
| 87 |
ModBiblio($record, $ref_biblionumber, $frameworkcode); |
86 |
ModBiblio($record, $ref_biblionumber, $frameworkcode); |
|
Lines 89-105
if ($merge) {
Link Here
|
| 89 |
# Moving items from the other record to the reference record |
88 |
# Moving items from the other record to the reference record |
| 90 |
foreach my $biblionumber (@biblionumbers) { |
89 |
foreach my $biblionumber (@biblionumbers) { |
| 91 |
my $items = Koha::Items->search({ biblionumber => $biblionumber }); |
90 |
my $items = Koha::Items->search({ biblionumber => $biblionumber }); |
|
|
91 |
my @items_number; |
| 92 |
|
| 92 |
while ( my $item = $items->next) { |
93 |
while ( my $item = $items->next) { |
| 93 |
my $res = MoveItemFromBiblio( $item->itemnumber, $biblionumber, $ref_biblionumber ); |
94 |
push @items_number, $item->itemnumber; |
| 94 |
if ( not defined $res ) { |
|
|
| 95 |
push @notmoveditems, $item->itemnumber; |
| 96 |
} |
| 97 |
} |
95 |
} |
| 98 |
} |
96 |
C4::Items::MoveItemsFromBiblio(\@items_number, $biblionumber, $ref_biblionumber); |
| 99 |
# If some items could not be moved : |
|
|
| 100 |
if (scalar(@notmoveditems) > 0) { |
| 101 |
my $itemlist = join(' ',@notmoveditems); |
| 102 |
push @errors, { code => "CANNOT_MOVE", value => $itemlist }; |
| 103 |
} |
97 |
} |
| 104 |
|
98 |
|
| 105 |
my $sth_subscription = $dbh->prepare(" |
99 |
my $sth_subscription = $dbh->prepare(" |