Lines 56-62
BEGIN {
Link Here
|
56 |
&NewOrder &DelOrder &ModOrder &GetPendingOrders &GetOrder &GetOrders |
56 |
&NewOrder &DelOrder &ModOrder &GetPendingOrders &GetOrder &GetOrders |
57 |
&GetOrderNumber &GetLateOrders &GetOrderFromItemnumber |
57 |
&GetOrderNumber &GetLateOrders &GetOrderFromItemnumber |
58 |
&SearchOrder &GetHistory &GetRecentAcqui |
58 |
&SearchOrder &GetHistory &GetRecentAcqui |
59 |
&ModReceiveOrder &CancelReceipt &ModOrderBiblioitemNumber |
59 |
&ModReceiveOrder &CancelReceipt |
60 |
&GetCancelledOrders |
60 |
&GetCancelledOrders |
61 |
&GetLastOrderNotReceivedFromSubscriptionid &GetLastOrderReceivedFromSubscriptionid |
61 |
&GetLastOrderNotReceivedFromSubscriptionid &GetLastOrderReceivedFromSubscriptionid |
62 |
&NewOrderItem &ModOrderItem &ModItemOrder |
62 |
&NewOrderItem &ModOrderItem &ModItemOrder |
Lines 1266-1296
sub ModItemOrder {
Link Here
|
1266 |
return $sth->execute($ordernumber, $itemnumber); |
1266 |
return $sth->execute($ordernumber, $itemnumber); |
1267 |
} |
1267 |
} |
1268 |
|
1268 |
|
1269 |
#------------------------------------------------------------# |
|
|
1270 |
|
1271 |
|
1272 |
=head3 ModOrderBibliotemNumber |
1273 |
|
1274 |
&ModOrderBiblioitemNumber($biblioitemnumber,$ordernumber, $biblionumber); |
1275 |
|
1276 |
Modifies the biblioitemnumber for an existing order. |
1277 |
Updates the order with order number C<$ordernum> and biblionumber C<$biblionumber>. |
1278 |
|
1279 |
=cut |
1280 |
|
1281 |
#FIXME: is this used at all? |
1282 |
sub ModOrderBiblioitemNumber { |
1283 |
my ($biblioitemnumber,$ordernumber, $biblionumber) = @_; |
1284 |
my $dbh = C4::Context->dbh; |
1285 |
my $query = " |
1286 |
UPDATE aqorders |
1287 |
SET biblioitemnumber = ? |
1288 |
WHERE ordernumber = ? |
1289 |
AND biblionumber = ?"; |
1290 |
my $sth = $dbh->prepare($query); |
1291 |
$sth->execute( $biblioitemnumber, $ordernumber, $biblionumber ); |
1292 |
} |
1293 |
|
1294 |
=head3 GetCancelledOrders |
1269 |
=head3 GetCancelledOrders |
1295 |
|
1270 |
|
1296 |
my @orders = GetCancelledOrders($basketno, $orderby); |
1271 |
my @orders = GetCancelledOrders($basketno, $orderby); |
1297 |
- |
|
|