* Guillermo Roditi <[EMAIL PROTECTED]> [2007-05-22 19:05]:
> +++ lib/DBIx/Class/ResultSet.pm (revision 12517)
> @@ -1618,9 +1618,13 @@
> my $join_count = $seen->{$rel};
> my $alias = ($join_count > 1 ? join('_', $rel, $join_count) : $rel);
>
> + #XXX - temp fix for result_class bug. There likely is a more elegant fix
> -groditi
> + my %attrs = %{$self->{attrs}||{}};
> + delete $attrs{result_class};
> +
> $self->_source_handle->schema->resultset($rel_obj->{class})->search_rs(
> undef, {
> - %{$self->{attrs}||{}},
> + %attrs,
> join => undef,
> prefetch => undef,
> select => undef,
Errm? Bit awkward.
+++ lib/DBIx/Class/ResultSet.pm (revision 12517)
@@ -1618,9 +1618,10 @@
my $join_count = $seen->{$rel};
my $alias = ($join_count > 1 ? join('_', $rel, $join_count) : $rel);
$self->_source_handle->schema->resultset($rel_obj->{class})->search_rs(
undef, {
%{$self->{attrs}||{}},
+ result_class => undef, # FIXME temporary bug workaround
join => undef,
prefetch => undef,
select => undef,
_______________________________________________
List: http://lists.rawmode.org/cgi-bin/mailman/listinfo/dbix-class
Wiki: http://dbix-class.shadowcatsystems.co.uk/
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/trunk/DBIx-Class/
Searchable Archive: http://www.mail-archive.com/[email protected]/
