[Koha-cvs] koha/C4 Acquisition.pm [rel_2_2]
paul poulain
paul at koha-fr.org
Wed Dec 14 14:09:42 CET 2005
CVSROOT: /cvsroot/koha
Module name: koha
Branch: rel_2_2
Changes by: paul poulain <tipaul at savannah.gnu.org> 05/12/14 13:09:42
Modified files:
C4 : Acquisition.pm
Log message:
* reordering a query to have correct values in a hash.
* formatting a date for output
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Acquisition.pm.diff?only_with_tag=rel_2_2&tr1=1.9.2.10&tr2=1.9.2.11&r1=text&r2=text
Patches:
Index: koha/C4/Acquisition.pm
diff -u koha/C4/Acquisition.pm:1.9.2.10 koha/C4/Acquisition.pm:1.9.2.11
--- koha/C4/Acquisition.pm:1.9.2.10 Thu Dec 1 17:27:55 2005
+++ koha/C4/Acquisition.pm Wed Dec 14 13:09:42 2005
@@ -108,7 +108,7 @@
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 @@
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;
}
More information about the Koha-cvs
mailing list