|
Lines 921-927
sub GetPendingOrders {
Link Here
|
| 921 |
|
921 |
|
| 922 |
@orders = &GetOrders($basketnumber, $orderby); |
922 |
@orders = &GetOrders($basketnumber, $orderby); |
| 923 |
|
923 |
|
| 924 |
Looks up the pending (non-cancelled) orders with the given basket |
924 |
Looks up non-cancelled orders (pending and received) with the given basket |
| 925 |
number. If C<$booksellerID> is non-empty, only orders from that seller |
925 |
number. If C<$booksellerID> is non-empty, only orders from that seller |
| 926 |
are returned. |
926 |
are returned. |
| 927 |
|
927 |
|
|
Lines 929-934
return :
Link Here
|
| 929 |
C<&basket> returns a two-element array. C<@orders> is an array of |
929 |
C<&basket> returns a two-element array. C<@orders> is an array of |
| 930 |
references-to-hash, whose keys are the fields from the aqorders, |
930 |
references-to-hash, whose keys are the fields from the aqorders, |
| 931 |
biblio, and biblioitems tables in the Koha database. |
931 |
biblio, and biblioitems tables in the Koha database. |
|
|
932 |
If the record have been suppressed, its biblionumber is only retuned in deletedbiblionumber column. |
| 932 |
|
933 |
|
| 933 |
=cut |
934 |
=cut |
| 934 |
|
935 |
|
|
Lines 936-962
sub GetOrders {
Link Here
|
| 936 |
my ( $basketno, $orderby ) = @_; |
937 |
my ( $basketno, $orderby ) = @_; |
| 937 |
my $dbh = C4::Context->dbh; |
938 |
my $dbh = C4::Context->dbh; |
| 938 |
my $query =" |
939 |
my $query =" |
| 939 |
SELECT biblio.*,biblioitems.*, |
940 |
SELECT all_biblio.*, |
|
|
941 |
all_biblioitems.*, |
| 940 |
aqorders.*, |
942 |
aqorders.*, |
| 941 |
aqbudgets.*, |
943 |
aqbudgets.*, |
| 942 |
biblio.title, |
|
|
| 943 |
aqorders_transfers.ordernumber_from AS transferred_from, |
944 |
aqorders_transfers.ordernumber_from AS transferred_from, |
| 944 |
aqorders_transfers.timestamp AS transferred_from_timestamp |
945 |
aqorders_transfers.timestamp AS transferred_from_timestamp |
| 945 |
FROM aqorders |
946 |
FROM aqorders |
| 946 |
LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id |
947 |
LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id |
| 947 |
LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber |
948 |
LEFT JOIN ( |
| 948 |
LEFT JOIN biblioitems ON biblioitems.biblionumber =biblio.biblionumber |
949 |
SELECT * FROM biblio |
|
|
950 |
UNION ALL |
| 951 |
SELECT * FROM deletedbiblio |
| 952 |
) AS all_biblio ON ((all_biblio.biblionumber=aqorders.biblionumber) OR (all_biblio.biblionumber=aqorders.deletedbiblionumber)) |
| 953 |
LEFT JOIN ( |
| 954 |
SELECT * FROM biblioitems |
| 955 |
UNION ALL |
| 956 |
SELECT * FROM deletedbiblioitems |
| 957 |
) AS all_biblioitems ON ((all_biblioitems.biblionumber=aqorders.biblionumber) OR (all_biblioitems.biblionumber=aqorders.deletedbiblionumber)) |
| 949 |
LEFT JOIN aqorders_transfers ON aqorders_transfers.ordernumber_to = aqorders.ordernumber |
958 |
LEFT JOIN aqorders_transfers ON aqorders_transfers.ordernumber_to = aqorders.ordernumber |
| 950 |
WHERE basketno=? |
959 |
WHERE basketno=? |
| 951 |
AND (datecancellationprinted IS NULL OR datecancellationprinted='0000-00-00') |
960 |
AND (datecancellationprinted IS NULL OR datecancellationprinted='0000-00-00') |
| 952 |
"; |
961 |
"; |
| 953 |
|
962 |
$orderby = "all_biblioitems.publishercode,all_biblio.title" unless $orderby; |
| 954 |
$orderby = "biblioitems.publishercode,biblio.title" unless $orderby; |
|
|
| 955 |
$query .= " ORDER BY $orderby"; |
963 |
$query .= " ORDER BY $orderby"; |
| 956 |
my $sth = $dbh->prepare($query); |
964 |
my $sth = $dbh->prepare($query); |
| 957 |
$sth->execute($basketno); |
965 |
$sth->execute($basketno); |
| 958 |
my $results = $sth->fetchall_arrayref({}); |
966 |
my $results = $sth->fetchall_arrayref({}); |
| 959 |
$sth->finish; |
967 |
$sth->finish; |
| 960 |
return @$results; |
968 |
return @$results; |
| 961 |
} |
969 |
} |
| 962 |
|
970 |
|
|
Lines 1005-1010
Looks up an order by order number.
Link Here
|
| 1005 |
|
1013 |
|
| 1006 |
Returns a reference-to-hash describing the order. The keys of |
1014 |
Returns a reference-to-hash describing the order. The keys of |
| 1007 |
C<$order> are fields from the biblio, biblioitems, aqorders tables of the Koha database. |
1015 |
C<$order> are fields from the biblio, biblioitems, aqorders tables of the Koha database. |
|
|
1016 |
If the record have been suppressed, its biblionumber is only retuned in deletedbiblionumber column. |
| 1008 |
|
1017 |
|
| 1009 |
=cut |
1018 |
=cut |
| 1010 |
|
1019 |
|
|
Lines 1012-1021
sub GetOrder {
Link Here
|
| 1012 |
my ($ordernumber) = @_; |
1021 |
my ($ordernumber) = @_; |
| 1013 |
my $dbh = C4::Context->dbh; |
1022 |
my $dbh = C4::Context->dbh; |
| 1014 |
my $query = " |
1023 |
my $query = " |
| 1015 |
SELECT biblioitems.*, biblio.*, aqorders.* |
1024 |
SELECT all_biblio.*, all_biblioitems.*, |
|
|
1025 |
aqorders.* |
| 1016 |
FROM aqorders |
1026 |
FROM aqorders |
| 1017 |
LEFT JOIN biblio on biblio.biblionumber=aqorders.biblionumber |
1027 |
LEFT JOIN ( |
| 1018 |
LEFT JOIN biblioitems on biblioitems.biblionumber=aqorders.biblionumber |
1028 |
SELECT * FROM biblio |
|
|
1029 |
UNION ALL |
| 1030 |
SELECT * FROM deletedbiblio |
| 1031 |
) AS all_biblio ON ((all_biblio.biblionumber=aqorders.biblionumber) OR (all_biblio.biblionumber=aqorders.deletedbiblionumber)) |
| 1032 |
LEFT JOIN ( |
| 1033 |
SELECT * FROM biblioitems |
| 1034 |
UNION ALL |
| 1035 |
SELECT * FROM deletedbiblioitems |
| 1036 |
) AS all_biblioitems ON ((all_biblioitems.biblionumber=aqorders.biblionumber) OR (all_biblioitems.biblionumber=aqorders.deletedbiblionumber)) |
| 1019 |
WHERE aqorders.ordernumber=? |
1037 |
WHERE aqorders.ordernumber=? |
| 1020 |
|
1038 |
|
| 1021 |
"; |
1039 |
"; |
|
Lines 1026-1031
sub GetOrder {
Link Here
|
| 1026 |
return $data; |
1044 |
return $data; |
| 1027 |
} |
1045 |
} |
| 1028 |
|
1046 |
|
|
|
1047 |
|
| 1029 |
=head3 GetLastOrderNotReceivedFromSubscriptionid |
1048 |
=head3 GetLastOrderNotReceivedFromSubscriptionid |
| 1030 |
|
1049 |
|
| 1031 |
$order = &GetLastOrderNotReceivedFromSubscriptionid($subscriptionid); |
1050 |
$order = &GetLastOrderNotReceivedFromSubscriptionid($subscriptionid); |
|
Lines 1257-1263
sub ModItemOrder {
Link Here
|
| 1257 |
|
1276 |
|
| 1258 |
my @orders = GetCancelledOrders($basketno, $orderby); |
1277 |
my @orders = GetCancelledOrders($basketno, $orderby); |
| 1259 |
|
1278 |
|
| 1260 |
Returns cancelled orders for a basket |
1279 |
Returns cancelled orders for a basket. |
|
|
1280 |
If the record have been suppressed, its biblionumber is only retuned in deletedbiblionumber column. |
| 1261 |
|
1281 |
|
| 1262 |
=cut |
1282 |
=cut |
| 1263 |
|
1283 |
|
|
Lines 1269-1285
sub GetCancelledOrders {
Link Here
|
| 1269 |
my $dbh = C4::Context->dbh; |
1289 |
my $dbh = C4::Context->dbh; |
| 1270 |
my $query = " |
1290 |
my $query = " |
| 1271 |
SELECT |
1291 |
SELECT |
| 1272 |
biblio.*, |
1292 |
all_biblio.*, |
| 1273 |
biblioitems.*, |
1293 |
all_biblioitems.*, |
| 1274 |
aqorders.*, |
1294 |
aqorders.*, |
| 1275 |
aqbudgets.*, |
1295 |
aqbudgets.*, |
| 1276 |
aqorders_transfers.ordernumber_to AS transferred_to, |
1296 |
aqorders_transfers.ordernumber_to AS transferred_to, |
| 1277 |
aqorders_transfers.timestamp AS transferred_to_timestamp |
1297 |
aqorders_transfers.timestamp AS transferred_to_timestamp |
| 1278 |
FROM aqorders |
1298 |
FROM aqorders |
| 1279 |
LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id |
1299 |
LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id |
| 1280 |
LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber |
1300 |
LEFT JOIN ( |
| 1281 |
LEFT JOIN biblioitems ON biblioitems.biblionumber = biblio.biblionumber |
1301 |
SELECT * FROM biblio |
| 1282 |
LEFT JOIN aqorders_transfers ON aqorders_transfers.ordernumber_from = aqorders.ordernumber |
1302 |
UNION ALL |
|
|
1303 |
SELECT * FROM deletedbiblio |
| 1304 |
) AS all_biblio ON ((all_biblio.biblionumber=aqorders.biblionumber) OR (all_biblio.biblionumber=aqorders.deletedbiblionumber)) |
| 1305 |
LEFT JOIN ( |
| 1306 |
SELECT * FROM biblioitems |
| 1307 |
UNION ALL |
| 1308 |
SELECT * FROM deletedbiblioitems |
| 1309 |
) AS all_biblioitems ON ((all_biblioitems.biblionumber=aqorders.biblionumber) OR (all_biblioitems.biblionumber=aqorders.deletedbiblionumber)) |
| 1310 |
LEFT JOIN aqorders_transfers ON aqorders_transfers.ordernumber_from = aqorders.ordernumber |
| 1283 |
WHERE basketno = ? |
1311 |
WHERE basketno = ? |
| 1284 |
AND (datecancellationprinted IS NOT NULL |
1312 |
AND (datecancellationprinted IS NOT NULL |
| 1285 |
AND datecancellationprinted <> '0000-00-00') |
1313 |
AND datecancellationprinted <> '0000-00-00') |
|
Lines 1295-1301
sub GetCancelledOrders {
Link Here
|
| 1295 |
return @$results; |
1323 |
return @$results; |
| 1296 |
} |
1324 |
} |
| 1297 |
|
1325 |
|
| 1298 |
|
|
|
| 1299 |
#------------------------------------------------------------# |
1326 |
#------------------------------------------------------------# |
| 1300 |
|
1327 |
|
| 1301 |
=head3 ModReceiveOrder |
1328 |
=head3 ModReceiveOrder |