r21835 - in /branches/upstream/libnet-z3950-zoom-perl/current: Changes META.yml lib/Net/Z3950/ZOOM.pm

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Wed Jun 18 16:58:24 2008
New Revision: 21835

URL: http://svn.debian.org/wsvn/?sc=1&rev=21835
Log:
[svn-upgrade] Integrating new upstream version, libnet-z3950-zoom-perl (1.24)

Modified:
    branches/upstream/libnet-z3950-zoom-perl/current/Changes
    branches/upstream/libnet-z3950-zoom-perl/current/META.yml
    branches/upstream/libnet-z3950-zoom-perl/current/lib/Net/Z3950/ZOOM.pm

Modified: branches/upstream/libnet-z3950-zoom-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-z3950-zoom-perl/current/Changes?rev=21835&op=diff
==============================================================================
--- branches/upstream/libnet-z3950-zoom-perl/current/Changes (original)
+++ branches/upstream/libnet-z3950-zoom-perl/current/Changes Wed Jun 18 16:58:24 2008
@@ -1,6 +1,12 @@
-$Id: Changes,v 1.79 2008-06-09 13:53:22 mike Exp $
+$Id: Changes,v 1.80 2008-06-17 10:32:03 mike Exp $
 
 Revision history for Perl extension Net::Z3950::ZOOM.
+
+1.24  Tue Jun 17 11:31:08 BST 2008
+	- When Net::Z3950::ZOOM::record_get() fetches an XML record
+	  because the requested OPAC record is empty,  it now wraps it
+	  in an OPAC wrapper, making the difference invisible to
+	  application code.
 
 1.23  Mon Jun  9 14:53:15 BST 2008
 	- Net::Z3950::ZOOM::record_get() now patches around the

Modified: branches/upstream/libnet-z3950-zoom-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-z3950-zoom-perl/current/META.yml?rev=21835&op=diff
==============================================================================
--- branches/upstream/libnet-z3950-zoom-perl/current/META.yml (original)
+++ branches/upstream/libnet-z3950-zoom-perl/current/META.yml Wed Jun 18 16:58:24 2008
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Net-Z3950-ZOOM
-version:      1.23
+version:      1.24
 version_from: lib/Net/Z3950/ZOOM.pm
 installdirs:  site
 requires:

Modified: branches/upstream/libnet-z3950-zoom-perl/current/lib/Net/Z3950/ZOOM.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libnet-z3950-zoom-perl/current/lib/Net/Z3950/ZOOM.pm?rev=21835&op=diff
==============================================================================
--- branches/upstream/libnet-z3950-zoom-perl/current/lib/Net/Z3950/ZOOM.pm (original)
+++ branches/upstream/libnet-z3950-zoom-perl/current/lib/Net/Z3950/ZOOM.pm Wed Jun 18 16:58:24 2008
@@ -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 strict;
 use warnings;
 
-our $VERSION = '1.23';
+our $VERSION = '1.24';
 
 require XSLoader;
 XSLoader::load('Net::Z3950::ZOOM', $VERSION);
@@ -165,6 +165,9 @@
 		$newtype = "xml";
 	    }
 	    $val = record_get_binary($rec, $newtype);
+	    $val = ("<opacRecord>\n  <bibliographicRecord>\n" . $val .
+		    "  </bibliographicRecord>\n</opacRecord>");
+
 	}
 	return $val;
     }