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

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

Return to bug 7593