Delete RS

[simpleserver-moved-to-github.git] / SimpleServer.pm

diff --git a/SimpleServer.pm b/SimpleServer.pm
index 399d189..003efea 100644 (file)
--- 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