Re: Trouble making set_sql work...

[prev] [thread] [next] [Date index for 2004/07/13]

Take a look at the beginners guide
http://www.class-dbi.com/cgi-bin/wiki/index.cgi?BeginnersGuide

But as an example:

__PACKAGE__->set_sql(persons => qq {
 select artist.artistid
 from artist, person
 where artist.artistid = person.artistid
 and person.gender = ?});


Then in your code you'd call it like:

my @persons = Music::Artist->search_persons("F");


Jay
----- Original Message ----- 
From: "Andy Harrison" <aharrison@xxxxx.xxx>
To: "Jesse Sheidlower" <jester@xxxxx.xxx>
Cc: "cdbi" <cdbi-talk@xxxxxx.xxxxx.xxx>
Sent: Tuesday, July 13, 2004 9:58 AM
Subject: Re: Trouble making set_sql work...


> On Tue, 13 Jul 2004 10:31:16 -0400, Jesse Sheidlower <jester@xxxxx.xxx>
wrote:
> > On Tue, Jul 13, 2004 at 10:28:05AM -0400, Andy Harrison wrote:
> > > This is stumping me...  I'm trying to use the set_sql method bit it's
> > > not working.
> > >
> > > The error message:
> > >
> > > Can't locate object method "show_top" via package
> > > "Maillog::Report::top_stats" (perhaps you forgot to load
> > > "Maillog::Report::top_stats"?) at maillog_parse.pl line 554.
> >
> > I think with set_sql, the CDBI method name is generated by
> > prefixing "search_" to the set_sql name. That is, you should
> > be running "search_show_top".
> >
> > Best,
> >
> > Jesse Sheidlower
> >
>
> Great, thanx Jesse!
>
> I changed the line in main (and added the prints) to the following:
>     print "::opt_top::>", $opt_top, "<:: \n::opt_top_limit::>",
> $opt_top_limit, "<::\n";
>     Maillog::Report::top_stats->search_show_top( $opt_top,
$opt_top_limit );
>
>
> Now the error message is something else entirely:
>
> ::opt_top::>senders<::
> ::opt_top_limit::>10<::
> Maillog::Report::top_statsMaillog::Report::top_stats can't
>                                     SELECT option_data, COUNT(*)
>                                     FROM entry_options
>                                     WHERE option = '?'
>                                     GROUP BY option_data
>                                     ORDER BY count DESC
>                                     LIMIT ?;
>                                    : execute called with 2 bind
> variables, 1 needed at
> /usr/local/lib/perl5/site_perl/5.6.1/DBIx/ContextualFetch.pm line 51.
> errexecute called with 2 bind variables, 1 needed at
> /usr/local/lib/perl5/site_perl/5.6.1/DBIx/ContextualFetch.pm line 51.
>  at maillog_parse.pl line 529
>
>
> Am I using the ? symbols incorrectly?
>
> -- 
> Andy Harrison
>
>