[Dbix-class] match against ...

[RAPPAZ Francois]

*** unhandled exception in callback:
***   DBIx::Class::Storage::DBI::_dbh_execute(): DBI Exception: DBD::mysql::st execute failed: You have an error in your SQL syntax; check the manual that 
corresponds to your MySQL server version for the right syntax to use near 'WHERE ( ti, ex, ad ) ORDER BY tri )' at line 1 
[for Statement "SELECT me.nofm FROM jrn me WHERE (  WHERE ( ti, ex, ad ) ORDER BY tri )"] at Linker/DbcDataManager.pm line 234

The where clause is wrong: match and against are missing It's a question of my lack of understanding of the documentation for SQL::Abstract and it's use with search_rs

François

> -----Original Message-----
> From: Hailin Hu [mailto:i at h2l.name]
> Sent: jeudi, 3. avril 2014 05:52
> To: DBIx::Class user and developer list
> Subject: Re: [Dbix-class] match against ...
> 
> You should at least give out the error message if you expect any
> feedback from others.
> 
> Others will not create a same environment as yours and run the codes
> you pasted. Generally, they just analyze the problem with the
> description only. Me, too :)
> 
> On Wed, Apr 2, 2014 at 6:47 PM, RAPPAZ Francois
> <francois.rappaz at unifr.ch> wrote:
> > I'm struggling with code as
> >
> >         #sql I want to is SELECT * FROM jrn WHERE match(ti, ex, ad)
> > against('+$bla' in boolean mode) ORDER BY tri");
> >
> >   $bla is a string that holds the text to search
> >
> >  my $sqlmaker = SQL::Abstract->new(special_ops => [  {regex =>
> qr/^match$/i,
> >      handler => sub {
> >        my ($me, $field, $op, $arg) = @_;
> >        $arg = [$arg] if not ref $arg;
> >        my $label         = $me->_quote($field);
> >        my ($placeholder) = $me->_convert('?');
> >        my $placeholders  = join ", ", (($placeholder) x @$arg);
> >        my $sql           = $me->_sqlcase('match') . " ($label) " .
> $me->_sqlcase('against') . " ($placeholders) ";
> >        my @bind = $me->_bindtype($field, @$arg);
> >        return ($sql, @bind);
> >        }
> >      },
> >   ]);
> >
> >         my ($where, @bind)= $sqlmaker->where("ti, ex, ad", "tri",
> > $bla); $self->{log}->debug($where);
> >          my $rs = $self->{schema}->resultset('Jrn')->search_rs(undef,
> > {where=> $where});
> >
> > But keep having error message. What is @bind for if I don't use it ?
> >
> > Thanks for showing the right way to have this !
> >
> > François
> >
> >
> >> -----Original Message-----
> >> From: Hailin Hu [mailto:i at h2l.name]
> >> Sent: vendredi, 28. mars 2014 18:36
> >> To: DBIx::Class user and developer list
> >> Subject: Re: [Dbix-class] match against ...
> >>
> >> Hi,
> >>
> >> Have a look at docs below:
> >> http://search.cpan.org/~ribasushi/DBIx-Class-
> >> 0.08270/lib/DBIx/Class/ResultSet.pm#where
> >> http://search.cpan.org/~ribasushi/SQL-Abstract-
> >> 1.77/lib/SQL/Abstract.pm#SPECIAL_OPERATORS
> >>
> >> On Sat, Mar 29, 2014 at 12:46 AM, RAPPAZ Francois
> >> <francois.rappaz at unifr.ch> wrote:
> >> > Hi there
> >> >
> >> > I haven't look deep enough in the doc pages, sorry, but how can I
> >> > translate this with resultset('table')->search_rs();
> >> >
> >> > SELECT * FROM table WHERE match(field1, field2, field3)
> >> against('+$bla' in boolean mode) ORDER BY field1 ?
> >> >
> >> > $bla being taken from a field and having the spaces substituted
> >> > with
> >> + :
> >> >
> >> > my $bla = $b->get_text();
> >> >
> >> > ($bla=$bla)=~s/\s+/ \+/g;
> >> >
> >> > Thanks
> >> >
> >> > François
> >> >
> >> > _______________________________________________
> >> > List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
> >> > IRC: irc.perl.org#dbix-class
> >> > SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
> >> > Searchable Archive:
> >> > http://www.grokbase.com/group/dbix-class@lists.scsys.co.uk
> >>
> >> _______________________________________________
> >> List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
> >> IRC: irc.perl.org#dbix-class
> >> SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
> >> Searchable Archive: http://www.grokbase.com/group/dbix-
> >> class at lists.scsys.co.uk
> >
> > _______________________________________________
> > List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
> > IRC: irc.perl.org#dbix-class
> > SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
> > Searchable Archive:
> > http://www.grokbase.com/group/dbix-class@lists.scsys.co.uk
> 
> _______________________________________________
> List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
> IRC: irc.perl.org#dbix-class
> SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
> Searchable Archive: http://www.grokbase.com/group/dbix-
> class at lists.scsys.co.uk