[Koha-cvs] CVS: koha/value_builder unimarc_field_60X.pl,1.2,1.2.2.1

[MJ Ray]

Update of /cvsroot/koha/koha/value_builder
In directory sc8-pr-cvs1:/tmp/cvs-serv18386/value_builder

Modified Files:
      Tag: rel_2_0
        unimarc_field_60X.pl 
Log Message:
DBI call fix for bug 662.

Index: unimarc_field_60X.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_60X.pl,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -r1.2 -r1.2.2.1
*** unimarc_field_60X.pl        28 Nov 2003 14:12:23 -0000      1.2
--- unimarc_field_60X.pl        8 Jan 2004 17:31:35 -0000       1.2.2.1
***************
*** 78,88 ****
        my @splitted = /$authoritysep/,$search_string;
        my $level = $#splitted+1;
!       my $query;
        if ($search_string) { # if no search pattern, returns only the 50 1st 
top level values
!               $query = "select distinct freelib,father,level from 
bibliothesaurus where category='NC' and freelib like ? order by father,freelib";
        } else {
!               $query = "select distinct freelib,father,level from 
bibliothesaurus where category='NC' and level=0 and freelib like ? order by 
father,freelib limit 0,50";
        }
-       my $sti=$dbh->prepare($query);
        $sti->execute($Rsearch_string);
        my @results;
--- 78,87 ----
        my @splitted = /$authoritysep/,$search_string;
        my $level = $#splitted+1;
!       my $sti;
        if ($search_string) { # if no search pattern, returns only the 50 1st 
top level values
!               $sti=$dbh->prepare("select distinct freelib,father,level from 
bibliothesaurus where category='NC' and freelib like ? order by 
father,freelib");
        } else {
!               $sti=$dbh->prepare("select distinct freelib,father,level from 
bibliothesaurus where category='NC' and level=0 and freelib like ? order by 
father,freelib limit 0,50");
        }
        $sti->execute($Rsearch_string);
        my @results;