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 |