ZOOM_record_get returns ISO2709 buffer when "raw" is given.

diff --git a/CHANGELOG b/CHANGELOG
index 963ac7e..32c3090 100644 (file)
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,5 +1,7 @@
 Possible compatibility problems with earlier versions marked with '*'.
 
+ZOOM_record_get returns ISO2709 buffer when "raw" is given.
+
 --- 1.8.4 2002/01/04
 
 Scan for ZOOM API. New object ZOOM_scanset. New functions

diff --git a/zoom/zoom-c.c b/zoom/zoom-c.c
index 2c6297b..1e1be0d 100644 (file)
--- a/zoom/zoom-c.c
+++ b/zoom/zoom-c.c
@@ -1,5 +1,5 @@
 /*
- * $Id: zoom-c.c,v 1.18 2002-01-03 12:18:38 adam Exp $
+ * $Id: zoom-c.c,v 1.19 2002-01-09 11:03:41 adam Exp $
  *
  * ZOOM layer for C, connections, result sets, queries.
  */
@@ -923,8 +923,23 @@ void *ZOOM_record_get (ZOOM_record rec, const char *type, size_t *len)
     {
        if (npr->which == Z_NamePlusRecord_databaseRecord)
        {
-            *len = -1;
-           return (Z_External *) npr->u.databaseRecord;
+           Z_External *r = (Z_External *) npr->u.databaseRecord;
+           
+           if (r->which == Z_External_sutrs)
+           {
+               *len = r->u.sutrs->len;
+               return r->u.sutrs->buf;
+           }
+           else if (r->which == Z_External_octet)
+           {
+               *len = r->u.octet_aligned->len;
+               return r->u.octet_aligned->buf;
+           }
+           else /* grs-1, explain, ... */
+           {
+               *len = -1;
+                return (Z_External *) npr->u.databaseRecord;
+           }
        }
        return 0;
     }