|
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 951-989
sub GetOrders {
Link Here
|
| 951 |
|
951 |
|
| 952 |
#------------------------------------------------------------# |
952 |
#------------------------------------------------------------# |
| 953 |
|
953 |
|
| 954 |
=head3 GetOrderNumber |
|
|
| 955 |
|
| 956 |
$ordernumber = &GetOrderNumber($biblioitemnumber, $biblionumber); |
| 957 |
|
| 958 |
Looks up the ordernumber with the given biblionumber and biblioitemnumber. |
| 959 |
|
| 960 |
Returns the number of this order. |
| 961 |
|
| 962 |
=over |
| 963 |
|
| 964 |
=item C<$ordernumber> is the order number. |
| 965 |
|
| 966 |
=back |
| 967 |
|
| 968 |
=cut |
| 969 |
|
| 970 |
sub GetOrderNumber { |
| 971 |
my ( $biblionumber,$biblioitemnumber ) = @_; |
| 972 |
my $dbh = C4::Context->dbh; |
| 973 |
my $query = " |
| 974 |
SELECT ordernumber |
| 975 |
FROM aqorders |
| 976 |
WHERE biblionumber=? |
| 977 |
AND biblioitemnumber=? |
| 978 |
"; |
| 979 |
my $sth = $dbh->prepare($query); |
| 980 |
$sth->execute( $biblionumber, $biblioitemnumber ); |
| 981 |
|
| 982 |
return $sth->fetchrow; |
| 983 |
} |
| 984 |
|
| 985 |
#------------------------------------------------------------# |
| 986 |
|
| 987 |
=head3 GetOrder |
954 |
=head3 GetOrder |
| 988 |
|
955 |
|
| 989 |
$order = &GetOrder($ordernumber); |
956 |
$order = &GetOrder($ordernumber); |
|
Lines 1100-1106
Else, the upcoming July 1st is used.
Link Here
|
| 1100 |
|
1067 |
|
| 1101 |
=item defaults entrydate to Now |
1068 |
=item defaults entrydate to Now |
| 1102 |
|
1069 |
|
| 1103 |
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". |
1070 |
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". |
| 1104 |
|
1071 |
|
| 1105 |
=back |
1072 |
=back |
| 1106 |
|
1073 |
|
|
Lines 1268-1296
sub ModItemOrder {
Link Here
|
| 1268 |
|
1235 |
|
| 1269 |
#------------------------------------------------------------# |
1236 |
#------------------------------------------------------------# |
| 1270 |
|
1237 |
|
| 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 |
1238 |
=head3 GetCancelledOrders |
| 1295 |
|
1239 |
|
| 1296 |
my @orders = GetCancelledOrders($basketno, $orderby); |
1240 |
my @orders = GetCancelledOrders($basketno, $orderby); |
|
Lines 1332-1339
sub GetCancelledOrders {
Link Here
|
| 1332 |
=head3 ModReceiveOrder |
1276 |
=head3 ModReceiveOrder |
| 1333 |
|
1277 |
|
| 1334 |
&ModReceiveOrder($biblionumber, $ordernumber, $quantityreceived, $user, |
1278 |
&ModReceiveOrder($biblionumber, $ordernumber, $quantityreceived, $user, |
| 1335 |
$unitprice, $invoiceid, $biblioitemnumber, |
1279 |
$cost, $ecost, $invoiceid, rrp, budget_id, datereceived, \@received_itemnumbers); |
| 1336 |
$bookfund, $rrp, \@received_itemnumbers); |
|
|
| 1337 |
|
1280 |
|
| 1338 |
Updates an order, to reflect the fact that it was received, at least |
1281 |
Updates an order, to reflect the fact that it was received, at least |
| 1339 |
in part. All arguments not mentioned below update the fields with the |
1282 |
in part. All arguments not mentioned below update the fields with the |