From e80c2c6c3eca288c285551d35fe8ee0832731c8a Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sat, 23 Oct 2010 23:58:19 +0200 Subject: [PATCH] correctly pass usemap to all render calls --- server.pl | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) 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; -- 2.20.1