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