Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

Bug 10504: Remove the unused C4::Acq::ModOrderItem routine

Browse source 
This routine has been introduced by commit 2d90fb22d4.
The only call has been removed by commit 9eba7dc594.

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:
Jonathan Druart 2013-06-25 09:09:38 +02:00 committed by Galen Charlton
parent 89cf013a6f
commit 9f4f1ceafe
2 changed files with 2 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
C4/Acquisition.pm
View file

@ -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);

2
cataloguing/moveitem.pl
View file

@ -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);