[Koha-cvs] koha/z3950/server zed-koha-server.pl [rel_2_2]

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Antoine Farnault <toins>        07/03/26 14:59:08

Modified files:
        z3950/server   : zed-koha-server.pl 

Log message:
        missing SQL keyword "DISTINCT" on the select query.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/z3950/server/zed-koha-server.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.4.2.2&r2=1.4.2.3

Patches:
Index: zed-koha-server.pl
===================================================================
RCS file: /sources/koha/koha/z3950/server/Attic/zed-koha-server.pl,v
retrieving revision 1.4.2.2
retrieving revision 1.4.2.3
diff -u -b -r1.4.2.2 -r1.4.2.3
--- zed-koha-server.pl  2 Aug 2006 12:46:40 -0000       1.4.2.2
+++ zed-koha-server.pl  26 Mar 2007 14:59:08 -0000      1.4.2.3
@@ -145,7 +145,7 @@
                print "$term\n";        
                print "The query was:\n";        
                print "$query\n";
-               my $sql_query = "SELECT marc_biblio.bibid FROM marc_biblio 
RIGHT JOIN biblioitems ON marc_biblio.biblionumber = biblioitems.biblionumber 
WHERE biblioitems.isbn LIKE ?";
+               my $sql_query = "SELECT DISTINCT marc_biblio.bibid FROM 
marc_biblio RIGHT JOIN biblioitems ON marc_biblio.biblionumber = 
biblioitems.biblionumber WHERE biblioitems.isbn LIKE ?";
                &run_query($sql_query, $query, $args);
 
        } 
@@ -174,7 +174,7 @@
                $query =~ s| |%|g;
                $query .= "\%";         ## Add the wildcard to search term
                print "$query\n";
-               my $sql_query = "SELECT marc_biblio.bibid FROM marc_biblio 
RIGHT JOIN biblio ON marc_biblio.biblionumber = biblio.biblionumber WHERE 
biblio.author LIKE ?";
+               my $sql_query = "SELECT DISTINCT marc_biblio.bibid FROM 
marc_biblio RIGHT JOIN biblio ON marc_biblio.biblionumber = biblio.biblionumber 
WHERE biblio.author LIKE ?";
                 &run_query($sql_query, $query, $args);
 ## used for debugging--works!
 ##              print "@bib_list\n";
@@ -208,7 +208,7 @@
                 print "$term\n";
                 print "The query was:\n";
                 print "$query\n";
-               my $sql_query = "SELECT marc_biblio.bibid FROM marc_biblio 
RIGHT JOIN biblio ON marc_biblio.biblionumber = biblio.biblionumber WHERE 
biblio.title LIKE ?";
+               my $sql_query = "SELECT DISTINCT marc_biblio.bibid FROM 
marc_biblio RIGHT JOIN biblio ON marc_biblio.biblionumber = biblio.biblionumber 
WHERE biblio.title LIKE ?";
                &run_query($sql_query, $query, $args);
        }
        elsif (/1=21/) {         ## subject 
@@ -233,7 +233,7 @@
                
                $query .= "\%";         ## Add the wildcard to search term
                 print "$query\n";
-               my $sql_query = "SELECT marc_biblio.bibid FROM marc_biblio 
RIGHT JOIN biblio ON marc_biblio.biblionumber = biblio.biblionumber WHERE 
biblio.subject LIKE ?";
+               my $sql_query = "SELECT DISTINCT marc_biblio.bibid FROM 
marc_biblio RIGHT JOIN biblio ON marc_biblio.biblionumber = biblio.biblionumber 
WHERE biblio.subject LIKE ?";
                 &run_query($sql_query, $query, $args);
         }
     else {
@@ -259,7 +259,7 @@
                
                $query .= "\%";         ## Add the wildcard to search term
                 print "Querying : $query\n";
-               my $sql_query = "SELECT bibid FROM marc_word WHERE word LIKE ?";
+               my $sql_query = "SELECT DISTINCT bibid FROM marc_word WHERE 
word LIKE ?";
                 &run_query($sql_query, $query, $args);
         }
 }