Skip Menu |
 

This queue is for tickets about the Class-DBI-Plugin-DeepAbstractSearch CPAN distribution.

Report information
The Basics
Id: 15020
Status: new
Priority: 0/
Queue: Class-DBI-Plugin-DeepAbstractSearch

People
Owner: Nobody in particular
Requestors: support [...] 2rad.net
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: 0.04
Fixed in: 0.04

Attachments
DeepAbstractSearch_pm.diff



Subject: deep_search_distinct_where() Addition (Supports Distinct Queries)
Download (untitled) / with headers
text/plain 309b
I wanted to use deep_search_where() but retrieve only distinct entries. While I noticed the "DISTINCT" directive in deep_search_where() it only does it for all fields. I wanted to do it for a particular field. Please take a look, and hopefully you will agree to add it! (See Patch) Mark Rorabaugh (2RAD.net)
25a26,45 > > return $class->sth_to_objects($class->sql_deeply_and_broadly($sql), $bind); > } > > sub deep_search_distinct_where : Plugged > { > my $class = shift; > > my $distinct_item = shift; > > my $joins = {}; > $distinct_item = _transform_field($class, $joins, $distinct_item); > my ($what, $from, $where, $bind) = $class->get_deep_where(@_); > > my $sql = <<""; > SELECT DISTINCT $distinct_item > FROM $from > WHERE $where > > 307a328,339 > =head2 deep_search_where > > my @cds = Music::CD->deep_search_distinct_where( 'artist.address', > { > 'artist.name' => $artist_name > } > ); > > deep_search_distinct_where() takes the field (in Class::DBI method > format) that you wish to be distinct, and returns an iterator or array > or Class::DBI objects that match the result. > 331c363 < =cut \ No newline at end of file --- > =cut


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.