[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) {