View | Details | Raw Unified | Return to bug 9560
Collapse All | Expand All

(-)a/cataloguing/merge.pl (-1 / +10 lines)
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
- 

Return to bug 9560