X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTask%2FSearch.pm;h=6c81e01e8a9478a622f5bcdc8bddfb343b651dfe;hp=25373d77a6f87d6e0122f5ffff8fa5ab8dc453bd;hb=8277899bb532c97eedef025bec847ff77a418928;hpb=b500042851eb56cc76b155cec8cdde38054a2398

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;