[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