Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/cdbi.pm

   1 { # Based on the change to Class::DBI in OpenILS::Application::Storage.  This will
   2   # allow us to use TSearch2 via a simple cdbi "search" interface.
   3         #-------------------------------------------------------------------------------
   4         use UNIVERSAL::require;
   5         BEGIN {
   6                 'Class::DBI::Frozen::301'->use or 'Class::DBI'->use or die $@;
   7         }
   8         package Class::DBI;
   9
  10         sub search_fts {
  11                 my $self = shift;
  12                 my @args = @_;
  13
  14                 if (ref($args[-1]) eq 'HASH' && @args > 1) {
  15                         $args[-1]->{_placeholder} = "to_tsquery('default',?)";
  16                 } else {
  17                         push @args, {_placeholder => "to_tsquery('default',?)"};
  18                 }
  19
  20                 $self->_do_search("@@"  => @args);
  21         }
  22
  23         sub search_regex {
  24                 my $self = shift;
  25                 my @args = @_;
  26                 $self->_do_search("~*"  => @args);
  27         }
  28
  29         sub search_ilike {
  30                 my $self = shift;
  31                 my @args = @_;
  32                 $self->_do_search("ILIKE"  => @args);
  33         }
  34
  35 }
  36
  37 1;