+ # Moving orders (orders linked to items of frombiblio have already been moved by MoveItemFromBiblio)
+ my @allorders = GetOrdersByBiblionumber($frombiblio);
+ my @tobiblioitem = GetBiblioItemByBiblioNumber ($tobiblio);
+ my $tobiblioitem_biblioitemnumber = $tobiblioitem [0]-> {biblioitemnumber };
+ foreach my $myorder (@allorders) {
+ $myorder->{'biblionumber'} = $tobiblio;
+ ModOrder ($myorder);
+ # TODO : add error control (in ModOrder?)
+ }
+