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