Bug 10504: Remove the unused C4::Acq::ModOrderItem routine
This routine has been introduced by commit2d90fb22d4
. The only call has been removed by commit9eba7dc594
. So now, this routine is useless. Signed-off-by: Srdjan <srdjan@catalyst.net.nz> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
parent
89cf013a6f
commit
9f4f1ceafe
2 changed files with 2 additions and 33 deletions
|
@ -59,7 +59,7 @@ BEGIN {
|
||||||
&ModReceiveOrder &CancelReceipt
|
&ModReceiveOrder &CancelReceipt
|
||||||
&GetCancelledOrders
|
&GetCancelledOrders
|
||||||
&GetLastOrderNotReceivedFromSubscriptionid &GetLastOrderReceivedFromSubscriptionid
|
&GetLastOrderNotReceivedFromSubscriptionid &GetLastOrderReceivedFromSubscriptionid
|
||||||
&NewOrderItem &ModOrderItem &ModItemOrder
|
&NewOrderItem &ModItemOrder
|
||||||
|
|
||||||
&GetParcels &GetParcel
|
&GetParcels &GetParcel
|
||||||
&GetContracts &GetContract
|
&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
|
=head3 ModItemOrder
|
||||||
|
|
||||||
ModItemOrder($itemnumber, $ordernumber);
|
ModItemOrder($itemnumber, $ordernumber);
|
||||||
|
|
|
@ -30,7 +30,7 @@ use C4::Context;
|
||||||
use C4::Koha;
|
use C4::Koha;
|
||||||
use C4::Branch;
|
use C4::Branch;
|
||||||
use C4::ClassSource;
|
use C4::ClassSource;
|
||||||
use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder ModOrderItem/;
|
use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder/;
|
||||||
|
|
||||||
use Date::Calc qw(Today);
|
use Date::Calc qw(Today);
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue