From 9b0156a88d8c593ea050fe6dae3a7c73506b39ec Mon Sep 17 00:00:00 2001 From: Colin Campbell Date: Mon, 22 Apr 2013 09:59:51 +0100 Subject: [PATCH] Bug 10091 Remove unused ModOrderBiblioitemNumber sub Remove unused subroutine. Do not export name to scripts. --- C4/Acquisition.pm | 27 +-------------------------- 1 file changed, 1 insertion(+), 26 deletions(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index b78a51e..dfa331d 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -56,7 +56,7 @@ BEGIN { &NewOrder &DelOrder &ModOrder &GetPendingOrders &GetOrder &GetOrders &GetOrderNumber &GetLateOrders &GetOrderFromItemnumber &SearchOrder &GetHistory &GetRecentAcqui - &ModReceiveOrder &CancelReceipt &ModOrderBiblioitemNumber + &ModReceiveOrder &CancelReceipt &GetCancelledOrders &GetLastOrderNotReceivedFromSubscriptionid &GetLastOrderReceivedFromSubscriptionid &NewOrderItem &ModOrderItem &ModItemOrder @@ -1266,31 +1266,6 @@ sub ModItemOrder { return $sth->execute($ordernumber, $itemnumber); } -#------------------------------------------------------------# - - -=head3 ModOrderBibliotemNumber - - &ModOrderBiblioitemNumber($biblioitemnumber,$ordernumber, $biblionumber); - -Modifies the biblioitemnumber for an existing order. -Updates the order with order number C<$ordernum> and biblionumber C<$biblionumber>. - -=cut - -#FIXME: is this used at all? -sub ModOrderBiblioitemNumber { - my ($biblioitemnumber,$ordernumber, $biblionumber) = @_; - my $dbh = C4::Context->dbh; - my $query = " - UPDATE aqorders - SET biblioitemnumber = ? - WHERE ordernumber = ? - AND biblionumber = ?"; - my $sth = $dbh->prepare($query); - $sth->execute( $biblioitemnumber, $ordernumber, $biblionumber ); -} - =head3 GetCancelledOrders my @orders = GetCancelledOrders($basketno, $orderby); -- 1.8.2.135.g7b592fa