r21837 - in /trunk/libnet-z3950-zoom-perl: Changes META.yml debian/changelog lib/Net/Z3950/ZOOM.pm

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Wed Jun 18 16:59:34 2008
New Revision: 21837

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=21837
Log:
New upstream release.

Modified:
    trunk/libnet-z3950-zoom-perl/Changes
    trunk/libnet-z3950-zoom-perl/META.yml
    trunk/libnet-z3950-zoom-perl/debian/changelog
    trunk/libnet-z3950-zoom-perl/lib/Net/Z3950/ZOOM.pm

Modified: trunk/libnet-z3950-zoom-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/Changes?rev=21837&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/Changes (original)
+++ trunk/libnet-z3950-zoom-perl/Changes Wed Jun 18 16:59:34 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: trunk/libnet-z3950-zoom-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/META.yml?rev=21837&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/META.yml (original)
+++ trunk/libnet-z3950-zoom-perl/META.yml Wed Jun 18 16:59:34 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: trunk/libnet-z3950-zoom-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/debian/changelog?rev=21837&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/debian/changelog (original)
+++ trunk/libnet-z3950-zoom-perl/debian/changelog Wed Jun 18 16:59:34 2008
@@ -1,3 +1,9 @@
+libnet-z3950-zoom-perl (1.24-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Wed, 18 Jun 2008 18:58:46 +0200
+
 libnet-z3950-zoom-perl (1.23-1) unstable; urgency=low
 
   * New upstream release.

Modified: trunk/libnet-z3950-zoom-perl/lib/Net/Z3950/ZOOM.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-z3950-zoom-perl/lib/Net/Z3950/ZOOM.pm?rev=21837&op=diff
==============================================================================
--- trunk/libnet-z3950-zoom-perl/lib/Net/Z3950/ZOOM.pm (original)
+++ trunk/libnet-z3950-zoom-perl/lib/Net/Z3950/ZOOM.pm Wed Jun 18 16:59:34 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;
     }