correctly pass usemap to all render calls

diff --git a/server.pl b/server.pl
index 3fc2ee0..4dc54d5 100755 (executable)
--- a/server.pl
+++ b/server.pl
@@ -186,22 +186,21 @@ package Net::Z3950::RPN::And;
 
 sub render {
        my ($self,$usemap) = @_;
 
 sub render {
        my ($self,$usemap) = @_;

-    my $self = shift;
-    return $self->[0]->render() . ' AND ' . $self->[1]->render();
+    return $self->[0]->render($usemap) . ' AND ' . $self->[1]->render($usemap);

 }
 
 package Net::Z3950::RPN::Or;
 
 sub render {
 }
 
 package Net::Z3950::RPN::Or;
 
 sub render {

-    my $self = shift;
-    return $self->[0]->render() . ' OR ' . $self->[1]->render();
+       my ($self,$usemap) = @_;
+    return $self->[0]->render($usemap) . ' OR ' . $self->[1]->render($usemap);

 }
 
 package Net::Z3950::RPN::AndNot;
 
 sub render {
 }
 
 package Net::Z3950::RPN::AndNot;
 
 sub render {

-    my $self = shift;
-    return $self->[0]->render() . ' AND NOT ' . $self->[1]->render();
+       my ($self,$usemap) = @_;
+    return $self->[0]->render($usemap) . ' AND NOT ' . $self->[1]->render($usemap);

 }
 
 package Net::Z3950::RPN::Term;
 }
 
 package Net::Z3950::RPN::Term;