[Koha-cvs] koha/search.marc dictionary.pl [rel_2_2]

[Henri-Damien LAURENT]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	Henri-Damien LAURENT <hdl>	06/11/16 09:54:25

Modified files:
	search.marc    : dictionary.pl 

Log message:
	Bug fixing : would search twice because searched when authtypecode=''

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/search.marc/dictionary.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.6.2.7&r2=1.6.2.8

Patches:
Index: dictionary.pl
===================================================================
RCS file: /sources/koha/koha/search.marc/Attic/dictionary.pl,v
retrieving revision 1.6.2.7
retrieving revision 1.6.2.8
diff -u -b -r1.6.2.7 -r1.6.2.8
--- dictionary.pl	5 Feb 2006 21:59:21 -0000	1.6.2.7
+++ dictionary.pl	16 Nov 2006 09:54:25 -0000	1.6.2.8
@@ -141,8 +141,9 @@
 	}
 	
 	$strsth=~s/ OR$/)/;
-	my $strsth = $strsth." and authtypecode is not NULL";
-# 	warn $strsth;
+	my $strsth = $strsth." and authtypecode is not NULL ";
+#     $strsth .= " and authtypecode <>''";
+ 	warn "AUTHtypecode : ".$strsth;
 	my $sth=$dbh->prepare($strsth);
 	$sth->execute;
 	
@@ -152,6 +153,7 @@
 	my @authresults;
 	my $authnbresults;
 	while ((my $authtypecode) = $sth->fetchrow) {
+ 	    warn "AUTHtypecode : ".$authtypecode;
 		my ($curauthresults,$nbresults) = authoritysearch($dbh,[''],[''],[''],['contains'],
 														\@search,$startfrom*$resultsperpage, $resultsperpage,$authtypecode);
 		if (defined(@$curauthresults)) {
@@ -160,6 +162,9 @@
 				@$curauthresults[$i]->{jamainentry} =~ s/'/\\'/g;
 			}
 		}
+        use Data::Dumper;
+        warn Dumper($curauthresults);
+        warn Dumper(@authresults);
 		push @authresults, @$curauthresults;
 		$authnbresults+=$nbresults;
 #		warn "auth : $authtypecode nbauthresults : $nbresults";