|
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 |