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