|
Lines 404-412
sub _filter_hash{
Link Here
|
| 404 |
my $elements=join "|",@columns_filtered; |
404 |
my $elements=join "|",@columns_filtered; |
| 405 |
foreach my $field (grep {/\b($elements)\b/} keys %$filter_input){ |
405 |
foreach my $field (grep {/\b($elements)\b/} keys %$filter_input){ |
| 406 |
## supposed to be a hash of simple values, hashes of arrays could be implemented |
406 |
## supposed to be a hash of simple values, hashes of arrays could be implemented |
| 407 |
$filter_input->{$field}=format_date_in_iso($filter_input->{$field}) |
407 |
if ( $columns->{$field}{Type}=~/date/ ) { |
| 408 |
if $columns->{$field}{Type}=~/date/ && |
408 |
if ( defined $filter_input->{$field} ) { |
| 409 |
($filter_input->{$field} && $filter_input->{$field} !~C4::Dates->regexp("iso")); |
409 |
if ( $filter_input->{$field} eq q{} ) { |
|
|
410 |
$filter_input->{$field} = undef; |
| 411 |
} elsif ( $filter_input->{$field} !~ C4::Dates->regexp("iso") ) { |
| 412 |
$filter_input->{$field} = format_date_in_iso($filter_input->{$field}); |
| 413 |
} |
| 414 |
} |
| 415 |
} |
| 410 |
my ($tmpkeys, $localvalues)=_Process_Operands($filter_input->{$field},"$tablename.$field",$searchtype,$columns); |
416 |
my ($tmpkeys, $localvalues)=_Process_Operands($filter_input->{$field},"$tablename.$field",$searchtype,$columns); |
| 411 |
if (@$tmpkeys){ |
417 |
if (@$tmpkeys){ |
| 412 |
push @values, @$localvalues; |
418 |
push @values, @$localvalues; |
| 413 |
- |
|
|