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

[Paul POULAIN]

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

Modified Files:
	unimarc_field_60X.pl 
Log Message:
synch'ing with rel_2_0

Index: unimarc_field_60X.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_60X.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** unimarc_field_60X.pl	28 Nov 2003 14:12:23 -0000	1.2
--- unimarc_field_60X.pl	12 Jan 2004 16:59:37 -0000	1.3
***************
*** 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;