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

(-)a/cataloguing/merge.pl (-2 / +7 lines)
Lines 111-116 if ($merge) { Link Here
111
    my $sth_serial = $dbh->prepare("
111
    my $sth_serial = $dbh->prepare("
112
        UPDATE serial SET biblionumber = ? WHERE biblionumber = ?
112
        UPDATE serial SET biblionumber = ? WHERE biblionumber = ?
113
    ");
113
    ");
114
    my $sth_suggestions = $dbh->prepare("
115
        UPDATE suggestions SET biblionumber = ? WHERE biblionumber = ?
116
    ");
114
117
115
    my $report_header = {};
118
    my $report_header = {};
116
    foreach my $biblionumber ($ref_biblionumber, @biblionumbers) {
119
    foreach my $biblionumber ($ref_biblionumber, @biblionumbers) {
Lines 155-161 if ($merge) { Link Here
155
        }
158
        }
156
159
157
    # Moving serials
160
    # Moving serials
158
        $sth_serial->execute($ref_biblionumber, $biblionumber);
161
    $sth_serial->execute($ref_biblionumber, $biblionumber);
162
163
    # Moving suggestions
164
    $sth_suggestions->execute($ref_biblionumber, $biblionumber);
159
165
160
    # Moving orders (orders linked to items of frombiblio have already been moved by MoveItemFromBiblio)
166
    # Moving orders (orders linked to items of frombiblio have already been moved by MoveItemFromBiblio)
161
    my @allorders = GetOrdersByBiblionumber($biblionumber);
167
    my @allorders = GetOrdersByBiblionumber($biblionumber);
162
- 

Return to bug 18593