- my $task = new ZOOM::IRSpy::Task::Search($query,
- $this, $udata, $options, %cb);
- $this->add_task($task);
+ $this->add_task(new ZOOM::IRSpy::Task::Search
+ ($qtype, $qstr, $this, $udata, $options, %cb));
+}
+
+
+# Wrapper for backwards compatibility
+sub irspy_search_pqf {
+ my $this = shift();
+ return $this->irspy_search("pqf", @_);