From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 23 Oct 2010 21:58:19 +0000 (+0200)
Subject: correctly pass usemap to all render calls
X-Git-Url: http://git.rot13.org/?p=Biblio-Z3950.git;a=commitdiff_plain;h=e80c2c6c3eca288c285551d35fe8ee0832731c8a

correctly pass usemap to all render calls
---

diff --git a/server.pl b/server.pl
index 3fc2ee0..4dc54d5 100755
--- a/server.pl
+++ b/server.pl
@@ -186,22 +186,21 @@ package Net::Z3950::RPN::And;
 
 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 {
-    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 {
-    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;