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