X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=ccl%2Fcclfind.c;fp=ccl%2Fcclfind.c;h=6e85b226d64d3731dbe1450f9178cf43b0b30fd7;hp=324cd58f45b8fa7a46cbac761a2bc3ffe9111eab;hb=6b7bf6ee33bf997eff9747550f28fbc27a7020aa;hpb=0f5de851295231cacc15f91b670fa01fbf22b6fe

diff --git a/ccl/cclfind.c b/ccl/cclfind.c
index 324cd58..6e85b22 100644
--- a/ccl/cclfind.c
+++ b/ccl/cclfind.c
@@ -45,7 +45,10 @@
  * Europagate, 1995
  *
  * $Log: cclfind.c,v $
- * Revision 1.25  2001-10-03 23:54:41  adam
+ * Revision 1.26  2001-11-12 11:24:45  adam
+ * Ignore comma when dealing with and-lists.
+ *
+ * Revision 1.25  2001/10/03 23:54:41  adam
  * Fixes for numeric ranges (date=1980-1990).
  *
  * Revision 1.24  2001/03/22 21:23:30  adam
@@ -382,7 +385,14 @@ static struct ccl_rpn_node *search_term_x (CCL_parser cclp,
         size_t max = 200;
         if (and_list || or_list || !multi)
             max = 1;
-
+	
+	/* ignore commas when dealing with and-lists .. */
+        if (and_list && lookahead && lookahead->kind == CCL_TOK_COMMA)
+        {
+	    lookahead = lookahead->next;
+            ADVANCE;
+	    continue;
+        }
         /* go through each TERM token. If no truncation attribute is yet
            met, then look for left/right truncation markers (?) and
            set left_trunc/right_trunc/mid_trunc accordingly */
@@ -408,6 +418,7 @@ static struct ccl_rpn_node *search_term_x (CCL_parser cclp,
         if (len == 0)
             break;      /* no more terms . stop . */
 
+
         if (p_top)
         {
             if (or_list)