[Koha-cvs] CVS: koha/value_builder unimarc_field_60X.pl,1.2,1.2.2.1
MJ Ray
slef at users.sourceforge.net
Thu Jan 8 18:31:39 CET 2004
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;
More information about the Koha-cvs
mailing list