1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
# $Id$
package Data::ObjectDriver::BaseView;
use strict;
use warnings;
use base qw( Data::ObjectDriver::BaseObject );
use Carp ();
use Storable;
sub search {
my $class = shift;
my($terms, $args) = @_;
$args->{sql_statement} = $class->base_statement($terms, $args);
$args = Storable::dclone($args);
# quick hack: don't use HAVING if view class has datasource
if (! $class->properties->{datasource}) {
my %cols = map { $_ => 1 } @{ $class->properties->{columns} };
my %having;
for my $key (keys %$terms) {
if ($cols{$key} && ! $args->{sql_statement}->has_where($key)) {
# Don't need to delete from $term, because D::OD ignores
# it anyway when used as View class
$having{$key} = $terms->{$key};
}
}
$args->{having} = \%having;
}
$class->_proxy('search', $terms, $args)
}
1;
|
