projects
/
ZOOM-Perl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Release 1.25
[ZOOM-Perl-moved-to-github.git]
/
lib
/
Net
/
Z3950
/
ZOOM.pm
diff --git
a/lib/Net/Z3950/ZOOM.pm
b/lib/Net/Z3950/ZOOM.pm
index
d739357
..
c4e64f9
100644
(file)
--- 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.42 2008-09-29 16:22:25 mike Exp $
package Net::Z3950::ZOOM;
package Net::Z3950::ZOOM;
@@
-6,7
+6,7
@@
use 5.008;
use strict;
use warnings;
use strict;
use warnings;
-our $VERSION = '1.23';
+our $VERSION = '1.25';
require XSLoader;
XSLoader::load('Net::Z3950::ZOOM', $VERSION);
require XSLoader;
XSLoader::load('Net::Z3950::ZOOM', $VERSION);
@@
-165,6
+165,9
@@
sub record_get {
$newtype = "xml";
}
$val = record_get_binary($rec, $newtype);
$newtype = "xml";
}
$val = record_get_binary($rec, $newtype);
+ $val = ("<opacRecord>\n <bibliographicRecord>\n" . $val .
+ " </bibliographicRecord>\n</opacRecord>");
+
}
return $val;
}
}
return $val;
}