X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=src%2Fcclqfile.c;h=1c5372573fb3bed30184f9c921705f7046546b99;hb=00a44ce036714ab57696ef7ca415e69422745706;hp=d46b730f875edbe05b660fd5d606f7b1527d347c;hpb=1b7116b57dee317a8ccc2d53401b629fabd8b9d8;p=yaz-moved-to-github.git

diff --git a/src/cclqfile.c b/src/cclqfile.c
index d46b730..1c53725 100644
--- a/src/cclqfile.c
+++ b/src/cclqfile.c
@@ -44,7 +44,7 @@
 /* CCL qualifiers
  * Europagate, 1995
  *
- * $Id: cclqfile.c,v 1.3 2004-09-22 11:21:51 adam Exp $
+ * $Id: cclqfile.c,v 1.5 2004-10-02 13:28:26 adam Exp $
  *
  * Old Europagate Log:
  *
@@ -132,6 +132,8 @@ void ccl_qual_field (CCL_bibset bibset, const char *cp, const char *qual_name)
                 type = CCL_BIB1_REL;
                 if (!ccl_stricmp (qual_value, "o"))
                     value = CCL_BIB1_REL_ORDER;
+                else if (!ccl_stricmp (qual_value, "r"))
+                    value = CCL_BIB1_REL_PORDER;
                 break;                
             case 'p':
             case 'P':
@@ -186,7 +188,7 @@ void ccl_qual_field (CCL_bibset bibset, const char *cp, const char *qual_name)
 		    len = split - qual_value;
 		else
 		    len = strlen(qual_value);
-		svalue_ar[pair_no] = xmalloc(len+1);
+		svalue_ar[pair_no] = (char *) xmalloc(len+1);
 		memcpy(svalue_ar[pair_no], qual_value, len);
 		svalue_ar[pair_no][len] = '\0';
 	    }