From: mike <mike>
Date: Tue, 17 Jun 2008 10:30:52 +0000 (+0000)
Subject: v1.24 -- wrap surrogate XML records in OPAC wrapper.
X-Git-Tag: CPAN_1_26~46
X-Git-Url: http://lists.indexdata.dk/?a=commitdiff_plain;h=405a119675903039f54e788bc65b3d0b82c8443d;p=ZOOM-Perl-moved-to-github.git

v1.24 -- wrap surrogate XML records in OPAC wrapper.
---

diff --git a/lib/Net/Z3950/ZOOM.pm b/lib/Net/Z3950/ZOOM.pm
index d739357..b8711c5 100644
--- a/lib/Net/Z3950/ZOOM.pm
+++ b/lib/Net/Z3950/ZOOM.pm
@@ -1,4 +1,4 @@
-# $Id: ZOOM.pm,v 1.40 2008-06-09 13:53:00 mike Exp $
+# $Id: ZOOM.pm,v 1.41 2008-06-17 10:30:52 mike Exp $
 
 package Net::Z3950::ZOOM; 
 
@@ -6,7 +6,7 @@ use 5.008;
 use strict;
 use warnings;
 
-our $VERSION = '1.23';
+our $VERSION = '1.24';
 
 require XSLoader;
 XSLoader::load('Net::Z3950::ZOOM', $VERSION);
@@ -165,6 +165,9 @@ sub record_get {
 		$newtype = "xml";
 	    }
 	    $val = record_get_binary($rec, $newtype);
+	    $val = ("<opacRecord>\n  <bibliographicRecord>\n" . $val .
+		    "  </bibliographicRecord>\n</opacRecord>");
+
 	}
 	return $val;
     }