projects
/
idzebra-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added framework for the pos calls. rsisamb and rsnull have a real one,
[idzebra-moved-to-github.git]
/
perl
/
zebra_perl.c
diff --git
a/perl/zebra_perl.c
b/perl/zebra_perl.c
index
7bc2646
..
3143415
100644
(file)
--- a/
perl/zebra_perl.c
+++ b/
perl/zebra_perl.c
@@
-1,4
+1,7
@@
-//#include "zebraapi.h"
+#if 0
+#include "zebraapi.h"
+#endif
+
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
@@
-26,14
+29,6
@@
void DESTROY (void) {
}
/* Logging facilities from yaz */
}
/* Logging facilities from yaz */
-void logLevel (int level) {
- yaz_log_init_level(level);
-}
-
-void logFile (const char *fname) {
- yaz_log_init_file(fname);
-}
-
void logMsg (int level, const char *message) {
logf(level, "%s", message);
}
void logMsg (int level, const char *message) {
logf(level, "%s", message);
}
@@
-69,7
+64,7
@@
void record_retrieve(RetrievalObj *ro,
res->errString = "";
}
res->position = ro->records[i].position;
res->errString = "";
}
res->position = ro->records[i].position;
- res->base = ro->records[i].base;
+ res->base = odr_strdup(stream, ro->records[i].base);
res->format = (char *)
yaz_z3950_oid_value_to_str(ro->records[i].format, CLASS_RECSYN);
res->buf = buf;
res->format = (char *)
yaz_z3950_oid_value_to_str(ro->records[i].format, CLASS_RECSYN);
res->buf = buf;