From 6e0cba0df8be959e002122f2c9422ee8fc146061 Mon Sep 17 00:00:00 2001 From: tipaul Date: Wed, 14 Dec 2005 13:09:42 +0000 Subject: [PATCH] * reordering a query to have correct values in a hash. * formatting a date for output --- C4/Acquisition.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index f7b60555c2..d64d78a505 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -108,7 +108,7 @@ number of elements in C<@orders>. sub getbasketcontent { my ($basketno,$supplier,$orderby)=@_; my $dbh = C4::Context->dbh; - my $query="Select biblio.*,biblioitems.*,aqorders.*,aqorderbreakdown.*,biblio.title from aqorders,biblio,biblioitems + my $query="Select aqorderbreakdown.*,biblio.*,biblioitems.*,aqorders.*,biblio.title from aqorders,biblio,biblioitems left join aqorderbreakdown on aqorderbreakdown.ordernumber=aqorders.ordernumber where basketno='$basketno' and biblio.biblionumber=aqorders.biblionumber and biblioitems.biblioitemnumber @@ -625,6 +625,7 @@ sub getlateorders { my $hilighted = 1; while (my $data = $sth->fetchrow_hashref) { $data->{hilighted}=$hilighted if ($hilighted>0); + $data->{orderdate} = format_date($data->{orderdate}); push @results, $data; $hilighted= -$hilighted; } -- 2.39.5