From: Mike Taylor <mike@indexdata.com>
Date: Tue, 1 May 2007 16:30:42 +0000 (+0000)
Subject: Fix PQF classname.
X-Git-Tag: CPAN-v1.02~54^2~393
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=8277899bb532c97eedef025bec847ff77a418928

Fix PQF classname.
Add render_query()
---

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;