X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=blobdiff_plain;f=SimpleServer.pm;h=2893c5080edb30dd79802a0bbba9f7b5ccba94b4;hp=3dc3d2c2cbf4e52af27ab5ed0a6241013c82d7ea;hb=657bd74a4d71b1125a3bff1fe99631591ddf1873;hpb=d0c7c7bc5cd6ad4f13e62dc1f5c1b6dfb19e04ae

diff --git a/SimpleServer.pm b/SimpleServer.pm
index 3dc3d2c..2893c50 100644
--- a/SimpleServer.pm
+++ b/SimpleServer.pm
@@ -26,7 +26,10 @@
 ##
 
 ## $Log: SimpleServer.pm,v $
-## Revision 1.9  2001-08-29 11:48:36  sondberg
+## Revision 1.10  2002-02-28 11:21:57  mike
+## Add RPN structure to search-handler argument hash.
+##
+## Revision 1.9  2001/08/29 11:48:36  sondberg
 ## Added routines
 ##
 ## 	Net::Z3950::SimpleServer::ScanSuccess
@@ -61,7 +64,7 @@ require AutoLoader;
 @EXPORT = qw(
 	
 );
-$VERSION = '0.02';
+$VERSION = '0.04';
 
 bootstrap Net::Z3950::SimpleServer $VERSION;
 
@@ -110,6 +113,20 @@ sub launch_server {
 }
 
 
+# Register packages that we will use in translated RPNs
+package Net::Z3950::APDU::Query;
+package Net::Z3950::APDU::OID;
+package Net::Z3950::RPN::And;
+package Net::Z3950::RPN::Or;
+package Net::Z3950::RPN::AndNot;
+package Net::Z3950::RPN::Term;
+package Net::Z3950::RPN::Attributes;
+package Net::Z3950::RPN::Attribute;
+
+# Must revert to original package for Autoloader's benefit
+package Net::Z3950::SimpleServer;
+
+
 # Autoload methods go after =cut, and are processed by the autosplit program.
 
 1;