|
Lines 177-186
sub SearchSuggestion {
Link Here
|
| 177 |
foreach my $field (qw( suggesteddate manageddate accepteddate )) { |
177 |
foreach my $field (qw( suggesteddate manageddate accepteddate )) { |
| 178 |
my $from = $field . "_from"; |
178 |
my $from = $field . "_from"; |
| 179 |
my $to = $field . "_to"; |
179 |
my $to = $field . "_to"; |
|
|
180 |
my $from_dt; |
| 181 |
$from_dt = eval { dt_from_string( $suggestion->{$from} ) } if ( $suggestion->{$from} ); |
| 182 |
my $from_sql = '0000-00-00'; |
| 183 |
$from_sql = output_pref({ dt => $from_dt, dateformat => 'iso', dateonly => 1 }) |
| 184 |
if ($from_dt); |
| 185 |
$debug && warn "SQL for start date ($field): $from_sql"; |
| 180 |
if ( $suggestion->{$from} || $suggestion->{$to} ) { |
186 |
if ( $suggestion->{$from} || $suggestion->{$to} ) { |
| 181 |
push @query, qq{ AND suggestions.$field BETWEEN ? AND ? }; |
187 |
push @query, qq{ AND suggestions.$field BETWEEN ? AND ? }; |
| 182 |
push @sql_params, |
188 |
push @sql_params, $from_sql; |
| 183 |
output_pref({ dt => dt_from_string( $suggestion->{$from} ), dateformat => 'iso', dateonly => 1 }) || '0000-00-00'; |
|
|
| 184 |
push @sql_params, |
189 |
push @sql_params, |
| 185 |
output_pref({ dt => dt_from_string( $suggestion->{$to} ), dateformat => 'iso', dateonly => 1 }) || output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }); |
190 |
output_pref({ dt => dt_from_string( $suggestion->{$to} ), dateformat => 'iso', dateonly => 1 }) || output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }); |
| 186 |
} |
191 |
} |
| 187 |
- |
|
|