projects
/
ZOOM-Perl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e782998
)
v1.24 -- wrap surrogate XML records in OPAC wrapper.
author
mike
<mike>
Tue, 17 Jun 2008 10:30:52 +0000
(10:30 +0000)
committer
mike
<mike>
Tue, 17 Jun 2008 10:30:52 +0000
(10:30 +0000)
lib/Net/Z3950/ZOOM.pm
patch
|
blob
|
history
diff --git
a/lib/Net/Z3950/ZOOM.pm
b/lib/Net/Z3950/ZOOM.pm
index
d739357
..
b8711c5
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.41 2008-06-17 10:30:52 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.24';
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;
}