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

(-)a/cataloguing/merge.pl (-2 / +3 lines)
Lines 104-112 if ($merge) { Link Here
104
104
105
    # Moving orders
105
    # Moving orders
106
    my @allorders = GetOrdersByBiblionumber($frombiblio);
106
    my @allorders = GetOrdersByBiblionumber($frombiblio);
107
    my @tobiblioitem = GetBiblioItemByBiblioNumber ($tobiblio);
108
    my $tobiblioitem_biblioitemnumber = $tobiblioitem [0]-> {biblioitemnumber };
107
    foreach my $myorder (@allorders) {
109
    foreach my $myorder (@allorders) {
108
        $myorder->{'biblionumber'} = $tobiblio;
110
        $myorder->{'biblionumber'} = $tobiblio;
109
        $myorder->{'biblioitemnumber'} = $tobiblio; #maybe useless
111
        $myorder->{'biblioitemnumber'} = $tobiblioitem_biblioitemnumber;
110
        ModOrder ($myorder);
112
        ModOrder ($myorder);
111
    # TODO : add error control (in ModOrder?)
113
    # TODO : add error control (in ModOrder?)
112
    }
114
    }
113
- 

Return to bug 7593