[Koha-cvs] CVS: koha/C4 Acquisition.pm,1.6,1.7

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1872/C4

Modified Files:
	Acquisition.pm 
Log Message:
Adding possibility to order the basket by :
* publishercode
OR
* budget then publishercode

Index: Acquisition.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Acquisition.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** Acquisition.pm	4 Oct 2004 20:03:23 -0000	1.6
--- Acquisition.pm	5 Oct 2004 09:22:16 -0000	1.7
***************
*** 103,107 ****
  #'
  sub getbasketcontent {
! 	my ($basketno,$supplier)=@_;
  	my $dbh = C4::Context->dbh;
  	my $query="Select *,biblio.title from aqorders,biblio,biblioitems
--- 103,107 ----
  #'
  sub getbasketcontent {
! 	my ($basketno,$supplier,$orderby)=@_;
  	my $dbh = C4::Context->dbh;
  	my $query="Select *,biblio.title from aqorders,biblio,biblioitems
***************
*** 115,119 ****
  		$query.=" and aqorders.booksellerid='$supplier'";
  	}
! 	$query.=" order by biblioitems.publishercode";
  	my $sth=$dbh->prepare($query);
  	$sth->execute;
--- 115,121 ----
  		$query.=" and aqorders.booksellerid='$supplier'";
  	}
! 	
! 	$orderby="biblioitems.publishercode" unless $orderby;
! 	$query.=" order by $orderby";
  	my $sth=$dbh->prepare($query);
  	$sth->execute;