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
Another typo ... *sigh*
[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
6ff9b1a
..
ef7b61b
100644
(file)
--- a/
lib/Net/Z3950/ZOOM.pm
+++ b/
lib/Net/Z3950/ZOOM.pm
@@
-1,4
+1,4
@@
-# $Id: ZOOM.pm,v 1.14 2006-04-07 07:48:42 mike Exp $
+# $Id: ZOOM.pm,v 1.18 2006-04-07 12:07:23 mike Exp $
package Net::Z3950::ZOOM;
package Net::Z3950::ZOOM;
@@
-52,6
+52,7
@@
sub EVENT_SEND_APDU { 6 }
sub EVENT_RECV_APDU { 7 }
sub EVENT_RECV_RECORD { 8 }
sub EVENT_RECV_SEARCH { 9 }
sub EVENT_RECV_APDU { 7 }
sub EVENT_RECV_RECORD { 8 }
sub EVENT_RECV_SEARCH { 9 }
+sub EVENT_END { 10 } # In YAZ 2.1.17 and later
=head1 NAME
=head1 NAME
@@
-81,13
+82,13
@@
pretty much follows the API described in the ZOOM-C documentation at
http://www.indexdata.dk/yaz/doc/zoom.tkl
The only additional (non-ZOOM-C) function provided by this module is
http://www.indexdata.dk/yaz/doc/zoom.tkl
The only additional (non-ZOOM-C) function provided by this module is
-C<eventstr()>, which takes as its argument an event code such as
+C<event_str()>, which takes as its argument an event code such as
C<Net::Z3950::ZOOM::EVENT_SEND_APDU>, and returns a corresponding
short string.
=cut
C<Net::Z3950::ZOOM::EVENT_SEND_APDU>, and returns a corresponding
short string.
=cut
-sub eventstr {
+sub event_str {
my($code) = @_;
if ($code == EVENT_NONE) {
my($code) = @_;
if ($code == EVENT_NONE) {
@@
-110,6
+111,8
@@
sub eventstr {
return "receive record";
} elsif ($code == EVENT_RECV_SEARCH) {
return "receive search";
return "receive record";
} elsif ($code == EVENT_RECV_SEARCH) {
return "receive search";
+ } elsif ($code == EVENT_END) {
+ return "end";
}
return "impossible event " . $code;
}
}
return "impossible event " . $code;
}