Lines 54-62
BEGIN {
Link Here
|
54 |
&GetBasketgroups &ReOpenBasketgroup |
54 |
&GetBasketgroups &ReOpenBasketgroup |
55 |
|
55 |
|
56 |
&NewOrder &DelOrder &ModOrder &GetPendingOrders &GetOrder &GetOrders |
56 |
&NewOrder &DelOrder &ModOrder &GetPendingOrders &GetOrder &GetOrders |
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 945-983
sub GetOrders {
Link Here
|
945 |
|
945 |
|
946 |
#------------------------------------------------------------# |
946 |
#------------------------------------------------------------# |
947 |
|
947 |
|
948 |
=head3 GetOrderNumber |
|
|
949 |
|
950 |
$ordernumber = &GetOrderNumber($biblioitemnumber, $biblionumber); |
951 |
|
952 |
Looks up the ordernumber with the given biblionumber and biblioitemnumber. |
953 |
|
954 |
Returns the number of this order. |
955 |
|
956 |
=over |
957 |
|
958 |
=item C<$ordernumber> is the order number. |
959 |
|
960 |
=back |
961 |
|
962 |
=cut |
963 |
|
964 |
sub GetOrderNumber { |
965 |
my ( $biblionumber,$biblioitemnumber ) = @_; |
966 |
my $dbh = C4::Context->dbh; |
967 |
my $query = " |
968 |
SELECT ordernumber |
969 |
FROM aqorders |
970 |
WHERE biblionumber=? |
971 |
AND biblioitemnumber=? |
972 |
"; |
973 |
my $sth = $dbh->prepare($query); |
974 |
$sth->execute( $biblionumber, $biblioitemnumber ); |
975 |
|
976 |
return $sth->fetchrow; |
977 |
} |
978 |
|
979 |
#------------------------------------------------------------# |
980 |
|
981 |
=head3 GetOrder |
948 |
=head3 GetOrder |
982 |
|
949 |
|
983 |
$order = &GetOrder($ordernumber); |
950 |
$order = &GetOrder($ordernumber); |
Lines 1094-1100
Else, the upcoming July 1st is used.
Link Here
|
1094 |
|
1061 |
|
1095 |
=item defaults entrydate to Now |
1062 |
=item defaults entrydate to Now |
1096 |
|
1063 |
|
1097 |
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". |
1064 |
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". |
1098 |
|
1065 |
|
1099 |
=back |
1066 |
=back |
1100 |
|
1067 |
|
Lines 1262-1290
sub ModItemOrder {
Link Here
|
1262 |
|
1229 |
|
1263 |
#------------------------------------------------------------# |
1230 |
#------------------------------------------------------------# |
1264 |
|
1231 |
|
1265 |
|
|
|
1266 |
=head3 ModOrderBibliotemNumber |
1267 |
|
1268 |
&ModOrderBiblioitemNumber($biblioitemnumber,$ordernumber, $biblionumber); |
1269 |
|
1270 |
Modifies the biblioitemnumber for an existing order. |
1271 |
Updates the order with order number C<$ordernum> and biblionumber C<$biblionumber>. |
1272 |
|
1273 |
=cut |
1274 |
|
1275 |
#FIXME: is this used at all? |
1276 |
sub ModOrderBiblioitemNumber { |
1277 |
my ($biblioitemnumber,$ordernumber, $biblionumber) = @_; |
1278 |
my $dbh = C4::Context->dbh; |
1279 |
my $query = " |
1280 |
UPDATE aqorders |
1281 |
SET biblioitemnumber = ? |
1282 |
WHERE ordernumber = ? |
1283 |
AND biblionumber = ?"; |
1284 |
my $sth = $dbh->prepare($query); |
1285 |
$sth->execute( $biblioitemnumber, $ordernumber, $biblionumber ); |
1286 |
} |
1287 |
|
1288 |
=head3 GetCancelledOrders |
1232 |
=head3 GetCancelledOrders |
1289 |
|
1233 |
|
1290 |
my @orders = GetCancelledOrders($basketno, $orderby); |
1234 |
my @orders = GetCancelledOrders($basketno, $orderby); |
Lines 1326-1333
sub GetCancelledOrders {
Link Here
|
1326 |
=head3 ModReceiveOrder |
1270 |
=head3 ModReceiveOrder |
1327 |
|
1271 |
|
1328 |
&ModReceiveOrder($biblionumber, $ordernumber, $quantityreceived, $user, |
1272 |
&ModReceiveOrder($biblionumber, $ordernumber, $quantityreceived, $user, |
1329 |
$unitprice, $invoiceid, $biblioitemnumber, |
1273 |
$cost, $ecost, $invoiceid, rrp, budget_id, datereceived, \@received_itemnumbers); |
1330 |
$bookfund, $rrp, \@received_itemnumbers); |
|
|
1331 |
|
1274 |
|
1332 |
Updates an order, to reflect the fact that it was received, at least |
1275 |
Updates an order, to reflect the fact that it was received, at least |
1333 |
in part. All arguments not mentioned below update the fields with the |
1276 |
in part. All arguments not mentioned below update the fields with the |