Lines 29-34
use C4::Biblio;
Link Here
|
29 |
use C4::Serials; |
29 |
use C4::Serials; |
30 |
use C4::Koha; |
30 |
use C4::Koha; |
31 |
use C4::Reserves qw/MergeHolds/; |
31 |
use C4::Reserves qw/MergeHolds/; |
|
|
32 |
use C4::Acquisition qw/ModOrder GetOrdersByBiblionumber/; |
32 |
|
33 |
|
33 |
my $input = new CGI; |
34 |
my $input = new CGI; |
34 |
my @biblionumber = $input->param('biblionumber'); |
35 |
my @biblionumber = $input->param('biblionumber'); |
Lines 101-106
if ($merge) {
Link Here
|
101 |
|
102 |
|
102 |
# TODO : Moving reserves |
103 |
# TODO : Moving reserves |
103 |
|
104 |
|
|
|
105 |
# Moving orders |
106 |
my @allorders = GetOrdersByBiblionumber($frombiblio); |
107 |
foreach my $myorder (@allorders) { |
108 |
$myorder->{'biblionumber'} = $tobiblio; |
109 |
$myorder->{'biblioitemnumber'} = $tobiblio; #maybe useless |
110 |
ModOrder ($myorder); |
111 |
# TODO : add error control (in ModOrder?) |
112 |
} |
113 |
|
104 |
# Deleting the other record |
114 |
# Deleting the other record |
105 |
if (scalar(@errors) == 0) { |
115 |
if (scalar(@errors) == 0) { |
106 |
# Move holds |
116 |
# Move holds |
107 |
- |
|
|