From 2766db65fce1bd762d4d4123311ea3869445f830 Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 5 Jul 2005 21:16:10 +0000 Subject: [PATCH] adding regex and fts git-svn-id: svn://svn.open-ils.org/ILS/trunk@1053 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/cdbi.pm | 2 +- Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm | 5 ++++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/cdbi.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/cdbi.pm index 7cc0ba19a6..4a02242625 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/cdbi.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/cdbi.pm @@ -4,7 +4,7 @@ use Class::DBI; package Class::DBI; - sub search_fti { + sub search_fts { my $self = shift; my @args = @_; if (ref($args[-1]) eq 'HASH') { diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm index 89bd0a296e..c937578f2f 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm @@ -129,6 +129,7 @@ sub search { my $self = shift; my $client = shift; my $searches = shift; + my $options = shift; my $cdbi = $self->{cdbi}; @@ -138,7 +139,9 @@ sub search { join(',', map { "$_ => $$searches{$_}" } keys %$searches). " } using $search_type",DEBUG); - for my $obj ($cdbi->$search_type($searches)) { + for my $obj ($cdbi->$search_type($searches, $options)) { + warn "$obj -> ".ref($obj); + next unless ref($obj); $client->respond( $obj->to_fieldmapper ); } return undef; -- 2.11.0