-# $Id: ZOOM.pm,v 1.16 2006-04-07 12:05:41 mike Exp $
+# $Id: ZOOM.pm,v 1.17 2006-04-07 12:06:08 mike Exp $
package Net::Z3950::ZOOM;
sub EVENT_RECV_APDU { 7 }
sub EVENT_RECV_RECORD { 8 }
sub EVENT_RECV_SEARCH { 9 }
-sub EVENT_RECV_END { 10 } # In YAZ 2.1.17 and later
+sub EVENT_END { 10 } # In YAZ 2.1.17 and later
=head1 NAME
return "receive record";
} elsif ($code == EVENT_RECV_SEARCH) {
return "receive search";
- } elsif ($code == EVENT_RECV_END) {
+ } elsif ($code == EVENT_END) {
return "receive end";
}
return "impossible event " . $code;