projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b500042
)
Fix PQF classname.
author
Mike Taylor
<mike@indexdata.com>
Tue, 1 May 2007 16:30:42 +0000
(16:30 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Tue, 1 May 2007 16:30:42 +0000
(16:30 +0000)
Add render_query()
lib/ZOOM/IRSpy/Task/Search.pm
patch
|
blob
|
history
diff --git
a/lib/ZOOM/IRSpy/Task/Search.pm
b/lib/ZOOM/IRSpy/Task/Search.pm
index
25373d7
..
6c81e01
100644
(file)
--- 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;
package ZOOM::IRSpy::Task::Search;
@@
-53,7
+53,7
@@
sub run {
my $query;
if ($qtype eq "pqf") {
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 {
} elsif ($qtype eq "cql") {
$query = new ZOOM::Query::CQL($qstr);
} else {
@@
-73,9
+73,15
@@
sub run {
$this->set_options();
}
$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();
sub render {
my $this = shift();
- return ref($this) . "(" . $this->{qtype} . ":" . $this->{qstr} . ")";
+ return ref($this) . "(" . $this->render_query() . ")";
}
use overload '""' => \&render;
}
use overload '""' => \&render;