[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'],
                                                                                
                                address@hidden,$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";