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 109-114
if ($merge) {
Link Here
|
109 |
push @errors, $error if ($error); |
110 |
push @errors, $error if ($error); |
110 |
} |
111 |
} |
111 |
|
112 |
|
|
|
113 |
# Moving orders |
114 |
my @allorders = GetOrdersByBiblionumber($frombiblio); |
115 |
foreach my $myorder (@allorders) { |
116 |
$myorder->{'biblionumber'} = $tobiblio; |
117 |
$myorder->{'biblioitemnumber'} = $tobiblio; #maybe useless |
118 |
ModOrder ($myorder); |
119 |
# TODO : add error control (in ModOrder?) |
120 |
} |
112 |
# Parameters |
121 |
# Parameters |
113 |
$template->param( |
122 |
$template->param( |
114 |
result => 1, |
123 |
result => 1, |
115 |
- |
|
|