EOS
- $sql =~ s/\s*\n\s*/ /g; # easier to read in the debugger
return $sql;
}
EOS
}
- $sql =~ s/\s*\n\s*/ /g; # easier to read in the debugger
return $sql;
}
? $requested_order
: [ map
{ "$rs_attrs->{alias}.$_" }
- ( $rs_attrs->{_rsroot_source_handle}->resolve->_pri_cols )
+ ( $rs_attrs->{_rsroot_rsrc}->_pri_cols )
]
);
# since whatever order bindvals there are, they will be realiased
# and need to show up in front of the entire initial inner subquery
- # Unshift *from_bind* to make this happen (horrible, horrible, but
- # we don't have another mechanism yet)
- unshift @{$self->{from_bind}}, @{$self->{order_bind}};
+ # *unshift* the selector bind stack to make this happen (horrible,
+ # horrible, but we don't have another mechanism yet)
+ unshift @{$self->{select_bind}}, @{$self->{order_bind}};
}
# and this is order re-alias magic
$order_by_requested,
) if ( ($offset && $order_by_requested) || ($mid_sel ne $out_sel) );
- $sql =~ s/\s*\n\s*/ /g; # easier to read in the debugger
return $sql;
}
sub _GenericSubQ {
my ($self, $sql, $rs_attrs, $rows, $offset) = @_;
- my $root_rsrc = $rs_attrs->{_rsroot_source_handle}->resolve;
+ my $root_rsrc = $rs_attrs->{_rsroot_rsrc};
my $root_tbl_name = $root_rsrc->name;
# mangle the input sql as we will be replacing the selector
,
);
- $sql =~ s/\s*\n\s*/ /g; # easier to read in the debugger
return $sql;
}