Lines 54-62
BEGIN {
Link Here
|
54 |
&GetBasketgroups &ReOpenBasketgroup |
54 |
&GetBasketgroups &ReOpenBasketgroup |
55 |
|
55 |
|
56 |
&NewOrder &DelOrder &ModOrder &GetPendingOrders &GetOrder &GetOrders &GetOrdersByBiblionumber |
56 |
&NewOrder &DelOrder &ModOrder &GetPendingOrders &GetOrder &GetOrders &GetOrdersByBiblionumber |
57 |
&GetOrderNumber &GetLateOrders &GetOrderFromItemnumber |
57 |
&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 993-1031
sub GetOrdersByBiblionumber {
Link Here
|
993 |
|
993 |
|
994 |
#------------------------------------------------------------# |
994 |
#------------------------------------------------------------# |
995 |
|
995 |
|
996 |
=head3 GetOrderNumber |
|
|
997 |
|
998 |
$ordernumber = &GetOrderNumber($biblioitemnumber, $biblionumber); |
999 |
|
1000 |
Looks up the ordernumber with the given biblionumber and biblioitemnumber. |
1001 |
|
1002 |
Returns the number of this order. |
1003 |
|
1004 |
=over |
1005 |
|
1006 |
=item C<$ordernumber> is the order number. |
1007 |
|
1008 |
=back |
1009 |
|
1010 |
=cut |
1011 |
|
1012 |
sub GetOrderNumber { |
1013 |
my ( $biblionumber,$biblioitemnumber ) = @_; |
1014 |
my $dbh = C4::Context->dbh; |
1015 |
my $query = " |
1016 |
SELECT ordernumber |
1017 |
FROM aqorders |
1018 |
WHERE biblionumber=? |
1019 |
AND biblioitemnumber=? |
1020 |
"; |
1021 |
my $sth = $dbh->prepare($query); |
1022 |
$sth->execute( $biblionumber, $biblioitemnumber ); |
1023 |
|
1024 |
return $sth->fetchrow; |
1025 |
} |
1026 |
|
1027 |
#------------------------------------------------------------# |
1028 |
|
1029 |
=head3 GetOrder |
996 |
=head3 GetOrder |
1030 |
|
997 |
|
1031 |
$order = &GetOrder($ordernumber); |
998 |
$order = &GetOrder($ordernumber); |
Lines 1142-1148
Else, the upcoming July 1st is used.
Link Here
|
1142 |
|
1109 |
|
1143 |
=item defaults entrydate to Now |
1110 |
=item defaults entrydate to Now |
1144 |
|
1111 |
|
1145 |
The following keys are used: "biblionumber", "title", "basketno", "quantity", "notes", "biblioitemnumber", "rrp", "ecost", "gstrate", "unitprice", "subscription", "sort1", "sort2", "booksellerinvoicenumber", "listprice", "budgetdate", "purchaseordernumber", "branchcode", "booksellerinvoicenumber", "budget_id". |
1112 |
The following keys are used: "biblionumber", "title", "basketno", "quantity", "notes", "rrp", "ecost", "gstrate", "unitprice", "subscription", "sort1", "sort2", "booksellerinvoicenumber", "listprice", "budgetdate", "purchaseordernumber", "branchcode", "booksellerinvoicenumber", "budget_id". |
1146 |
|
1113 |
|
1147 |
=back |
1114 |
=back |
1148 |
|
1115 |
|
Lines 1313-1341
sub ModItemOrder {
Link Here
|
1313 |
|
1280 |
|
1314 |
#------------------------------------------------------------# |
1281 |
#------------------------------------------------------------# |
1315 |
|
1282 |
|
1316 |
|
|
|
1317 |
=head3 ModOrderBibliotemNumber |
1318 |
|
1319 |
&ModOrderBiblioitemNumber($biblioitemnumber,$ordernumber, $biblionumber); |
1320 |
|
1321 |
Modifies the biblioitemnumber for an existing order. |
1322 |
Updates the order with order number C<$ordernum> and biblionumber C<$biblionumber>. |
1323 |
|
1324 |
=cut |
1325 |
|
1326 |
#FIXME: is this used at all? |
1327 |
sub ModOrderBiblioitemNumber { |
1328 |
my ($biblioitemnumber,$ordernumber, $biblionumber) = @_; |
1329 |
my $dbh = C4::Context->dbh; |
1330 |
my $query = " |
1331 |
UPDATE aqorders |
1332 |
SET biblioitemnumber = ? |
1333 |
WHERE ordernumber = ? |
1334 |
AND biblionumber = ?"; |
1335 |
my $sth = $dbh->prepare($query); |
1336 |
$sth->execute( $biblioitemnumber, $ordernumber, $biblionumber ); |
1337 |
} |
1338 |
|
1339 |
=head3 GetCancelledOrders |
1283 |
=head3 GetCancelledOrders |
1340 |
|
1284 |
|
1341 |
my @orders = GetCancelledOrders($basketno, $orderby); |
1285 |
my @orders = GetCancelledOrders($basketno, $orderby); |
Lines 1377-1384
sub GetCancelledOrders {
Link Here
|
1377 |
=head3 ModReceiveOrder |
1321 |
=head3 ModReceiveOrder |
1378 |
|
1322 |
|
1379 |
&ModReceiveOrder($biblionumber, $ordernumber, $quantityreceived, $user, |
1323 |
&ModReceiveOrder($biblionumber, $ordernumber, $quantityreceived, $user, |
1380 |
$unitprice, $invoiceid, $biblioitemnumber, |
1324 |
$cost, $ecost, $invoiceid, rrp, budget_id, datereceived, \@received_itemnumbers); |
1381 |
$bookfund, $rrp, \@received_itemnumbers); |
|
|
1382 |
|
1325 |
|
1383 |
Updates an order, to reflect the fact that it was received, at least |
1326 |
Updates an order, to reflect the fact that it was received, at least |
1384 |
in part. All arguments not mentioned below update the fields with the |
1327 |
in part. All arguments not mentioned below update the fields with the |