X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=blobdiff_plain;f=SimpleServer.pm;h=003efeab45c725a48bab915c4b938e85f6c45f7f;hp=399d189af722f8ca6f1dd764f9d557a4773c0f19;hb=73cbad3a91f1f244b357cfac07c15f176d18d624;hpb=087378f313eacdda6ee90fed9e48ae34a4afae5e

diff --git a/SimpleServer.pm b/SimpleServer.pm
index 399d189..003efea 100644
--- a/SimpleServer.pm
+++ b/SimpleServer.pm
@@ -25,7 +25,7 @@
 ##
 ##
 
-## $Id: SimpleServer.pm,v 1.38 2007-08-20 10:55:29 mike Exp $
+## $Id: SimpleServer.pm,v 1.40 2007-08-20 11:06:09 mike Exp $
 
 package Net::Z3950::SimpleServer;
 
@@ -146,7 +146,6 @@ sub toPQF {
 
     my $res = "";
     foreach my $attr (@{ $this->{attributes} }) {
-	use Data::Dumper; print "considering attr: ", Dumper($attr);
 	$res .= "\@attr ";
 	my $set = $attr->{attributeSet};
 	$res .= "$set " if defined $set;
@@ -463,11 +462,6 @@ of the result-set is in the C<id> element.
 
 =back
 
-All of these classes are subclasses of the abstrac class
-C<Net::Z3950::RPN::Node>.  That class has a single method, C<toPQF()>,
-which may be used to turn an RPN tree, or part of one, back into a
-textual prefix query.
-
 =back
 
 =over 4
@@ -526,6 +520,11 @@ indicates a relevance match.
 
 =back
 
+All of these classes except C<Attributes> and C<Attribute> are
+subclasses of the abstract class C<Net::Z3950::RPN::Node>.  That class
+has a single method, C<toPQF()>, which may be used to turn an RPN
+tree, or part of one, back into a textual prefix query.
+
 Note that, apart to C<toPQF()>, none of these classes have any methods at
 all: the blessing into classes is largely just a documentation thing
 so that, for example, if you do