From 405a119675903039f54e788bc65b3d0b82c8443d Mon Sep 17 00:00:00 2001
From: mike <mike>
Date: Tue, 17 Jun 2008 10:30:52 +0000
Subject: [PATCH] v1.24 -- wrap surrogate XML records in OPAC wrapper.

---
 lib/Net/Z3950/ZOOM.pm |    7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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;
     }
-- 
1.7.10.4