--- file_not_specified_in_diff +++ file_not_specified_in_diff @@ -, +, @@ C4::Acq::ModOrderItem routine @@ -2,1 +91,0 @@ --- C4/Acquisition.pm | 33 +-------------------------------- cataloguing/moveitem.pl | 2 +- 2 files changed, 2 insertions(+), 33 deletions(-) --- a/C4/Acquisition.pm +++ a/C4/Acquisition.pm @@ -59,7 +59,7 @@ BEGIN { &ModReceiveOrder &CancelReceipt &GetCancelledOrders &GetLastOrderNotReceivedFromSubscriptionid &GetLastOrderReceivedFromSubscriptionid - &NewOrderItem &ModOrderItem &ModItemOrder + &NewOrderItem &ModItemOrder &GetParcels &GetParcel &GetContracts &GetContract @@ -1225,37 +1225,6 @@ sub ModOrder { #------------------------------------------------------------# -=head3 ModOrderItem - - &ModOrderItem(\%hashref); - -Modifies the itemnumber in the aqorders_items table. The input hash needs three entities: - -=over - -=item - itemnumber: the old itemnumber -=item - ordernumber: the order this item is attached to -=item - newitemnumber: the new itemnumber we want to attach the line to - -=back - -=cut - -sub ModOrderItem { - my $orderiteminfo = shift; - if (! $orderiteminfo->{'ordernumber'} || ! $orderiteminfo->{'itemnumber'} || ! $orderiteminfo->{'newitemnumber'}){ - die "Ordernumber, itemnumber and newitemnumber is required"; - } - - my $dbh = C4::Context->dbh; - - my $query = "UPDATE aqorders_items set itemnumber=? where itemnumber=? and ordernumber=?"; - my @params = ($orderiteminfo->{'newitemnumber'}, $orderiteminfo->{'itemnumber'}, $orderiteminfo->{'ordernumber'}); - my $sth = $dbh->prepare($query); - $sth->execute(@params); - return 0; -} - =head3 ModItemOrder ModItemOrder($itemnumber, $ordernumber); --- a/cataloguing/moveitem.pl +++ a/cataloguing/moveitem.pl @@ -30,7 +30,7 @@ use C4::Context; use C4::Koha; use C4::Branch; use C4::ClassSource; -use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder ModOrderItem/; +use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder/; use Date::Calc qw(Today); --