|
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 |
- |
|
|