[Koha-cvs] CVS: koha/value_builder unimarc_field_225a.pl,1.5,1.5.2.1

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_0
	unimarc_field_225a.pl 
Log Message:
ordering list

Index: unimarc_field_225a.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_225a.pl,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -C2 -r1.5 -r1.5.2.1
*** unimarc_field_225a.pl	23 Jun 2003 11:27:49 -0000	1.5
--- unimarc_field_225a.pl	26 Jan 2004 10:43:50 -0000	1.5.2.1
***************
*** 120,124 ****
  		my @collections;
  	if ($isbn_found) {
! 		my $sth = $dbh->prepare("select stdlib from bibliothesaurus where father=? and category='EDITORS'");
  		my @splited = split //, $isbn_found;
  		my $isbn_rebuild='';
--- 120,124 ----
  		my @collections;
  	if ($isbn_found) {
! 		my $sth = $dbh->prepare("select stdlib from bibliothesaurus where father=? and category='EDITORS' order by stdlib");
  		my @splited = split //, $isbn_found;
  		my $isbn_rebuild='';
***************
*** 132,136 ****
  	} else {
  	# if there is no isbn, search with %
! 		my $sth = $dbh->prepare("select stdlib from bibliothesaurus where father like ? and category='EDITORS'");
  		$sth->execute("\%$authoritysep $editor_found $authoritysep");
  		while (my ($line)= $sth->fetchrow) {
--- 132,136 ----
  	} else {
  	# if there is no isbn, search with %
! 		my $sth = $dbh->prepare("select stdlib from bibliothesaurus where father like ? and category='EDITORS' order by stdlib");
  		$sth->execute("\%$authoritysep $editor_found $authoritysep");
  		while (my ($line)= $sth->fetchrow) {