From 8277899bb532c97eedef025bec847ff77a418928 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 1 May 2007 16:30:42 +0000 Subject: [PATCH] Fix PQF classname. Add render_query() --- lib/ZOOM/IRSpy/Task/Search.pm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lib/ZOOM/IRSpy/Task/Search.pm b/lib/ZOOM/IRSpy/Task/Search.pm index 25373d7..6c81e01 100644 --- a/lib/ZOOM/IRSpy/Task/Search.pm +++ b/lib/ZOOM/IRSpy/Task/Search.pm @@ -1,4 +1,4 @@ -# $Id: Search.pm,v 1.14 2007-05-01 15:32:06 mike Exp $ +# $Id: Search.pm,v 1.15 2007-05-01 16:30:42 mike Exp $ package ZOOM::IRSpy::Task::Search; @@ -53,7 +53,7 @@ sub run { my $query; if ($qtype eq "pqf") { - $query = new ZOOM::Query::Prefix($qstr); + $query = new ZOOM::Query::PQF($qstr); } elsif ($qtype eq "cql") { $query = new ZOOM::Query::CQL($qstr); } else { @@ -73,9 +73,15 @@ sub run { $this->set_options(); } +# Unique to Task::Search, used only for logging +sub render_query { + my $this = shift(); + return $this->{qtype} . ":" . $this->{qstr} +} + sub render { my $this = shift(); - return ref($this) . "(" . $this->{qtype} . ":" . $this->{qstr} . ")"; + return ref($this) . "(" . $this->render_query() . ")"; } use overload '""' => \&render; -- 1.7.10.4