Lines 54-59
BEGIN {
Link Here
|
54 |
&GetOrderNumber &GetLateOrders &GetOrderFromItemnumber |
54 |
&GetOrderNumber &GetLateOrders &GetOrderFromItemnumber |
55 |
&SearchOrder &GetHistory &GetRecentAcqui |
55 |
&SearchOrder &GetHistory &GetRecentAcqui |
56 |
&ModReceiveOrder &ModOrderBiblioitemNumber |
56 |
&ModReceiveOrder &ModOrderBiblioitemNumber |
|
|
57 |
&GetCancelledOrders |
57 |
|
58 |
|
58 |
&NewOrderItem &ModOrderItem |
59 |
&NewOrderItem &ModOrderItem |
59 |
|
60 |
|
Lines 1041-1046
sub ModOrderBiblioitemNumber {
Link Here
|
1041 |
$sth->execute( $biblioitemnumber, $ordernumber, $biblionumber ); |
1042 |
$sth->execute( $biblioitemnumber, $ordernumber, $biblionumber ); |
1042 |
} |
1043 |
} |
1043 |
|
1044 |
|
|
|
1045 |
=head3 GetCancelledOrders |
1046 |
|
1047 |
my @orders = GetCancelledOrders($basketno, $orderby); |
1048 |
|
1049 |
Returns cancelled orders for a basket |
1050 |
|
1051 |
=cut |
1052 |
|
1053 |
sub GetCancelledOrders { |
1054 |
my ( $basketno, $orderby ) = @_; |
1055 |
|
1056 |
return () unless $basketno; |
1057 |
|
1058 |
my $dbh = C4::Context->dbh; |
1059 |
my $query = " |
1060 |
SELECT biblio.*, biblioitems.*, aqorders.*, aqbudgets.* |
1061 |
FROM aqorders |
1062 |
LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id |
1063 |
LEFT JOIN biblio ON biblio.biblionumber = aqorders.biblionumber |
1064 |
LEFT JOIN biblioitems ON biblioitems.biblionumber = biblio.biblionumber |
1065 |
WHERE basketno = ? |
1066 |
AND (datecancellationprinted IS NOT NULL |
1067 |
AND datecancellationprinted <> '0000-00-00') |
1068 |
"; |
1069 |
|
1070 |
$orderby = "aqorders.datecancellationprinted desc, aqorders.timestamp desc" |
1071 |
unless $orderby; |
1072 |
$query .= " ORDER BY $orderby"; |
1073 |
my $sth = $dbh->prepare($query); |
1074 |
$sth->execute($basketno); |
1075 |
my $results = $sth->fetchall_arrayref( {} ); |
1076 |
|
1077 |
return @$results; |
1078 |
} |
1079 |
|
1080 |
|
1044 |
#------------------------------------------------------------# |
1081 |
#------------------------------------------------------------# |
1045 |
|
1082 |
|
1046 |
=head3 ModReceiveOrder |
1083 |
=head3 ModReceiveOrder |