##
##
-## $Id: SimpleServer.pm,v 1.24 2006-03-24 11:56:39 mike Exp $
+## $Id: SimpleServer.pm,v 1.26 2006-04-19 13:17:52 sondberg Exp $
package Net::Z3950::SimpleServer;
@ISA = qw(Exporter AutoLoader DynaLoader);
@EXPORT = qw( );
-$VERSION = '1.01';
+$VERSION = '1.02';
bootstrap Net::Z3950::SimpleServer $VERSION;
if (defined($self->{SCAN})) {
set_scan_handler($self->{SCAN});
}
+ if (defined($self->{SORT})) {
+ set_sort_handler($self->{SORT});
+ }
start_server(@args);
}