Lines 25-31
use CGI;
Link Here
|
25 |
|
25 |
|
26 |
use C4::Context; |
26 |
use C4::Context; |
27 |
use C4::Output; |
27 |
use C4::Output; |
28 |
use C4::Dates qw(format_date); |
28 |
use C4::Dates qw(format_date format_date_in_iso); |
29 |
use C4::SQLHelper qw(:all); |
29 |
use C4::SQLHelper qw(:all); |
30 |
use C4::Debug; |
30 |
use C4::Debug; |
31 |
use C4::Letters; |
31 |
use C4::Letters; |
Lines 147-152
sub SearchSuggestion {
Link Here
|
147 |
} |
147 |
} |
148 |
} |
148 |
} |
149 |
|
149 |
|
|
|
150 |
my $today = C4::Dates->today('iso'); |
151 |
|
152 |
foreach ( qw( suggesteddate manageddate accepteddate ) ) { |
153 |
my $from = $_ . "_from"; |
154 |
my $to = $_ . "_to"; |
155 |
if ($$suggestion{$from} || $$suggestion{$to}) { |
156 |
push @query, " AND suggestions.suggesteddate BETWEEN '" |
157 |
. (format_date_in_iso($$suggestion{$from}) || 0000-00-00) . "' AND '" . (format_date_in_iso($$suggestion{$to}) || $today) . "'"; |
158 |
} |
159 |
} |
160 |
|
150 |
$debug && warn "@query"; |
161 |
$debug && warn "@query"; |
151 |
my $sth=$dbh->prepare("@query"); |
162 |
my $sth=$dbh->prepare("@query"); |
152 |
$sth->execute(@sql_params); |
163 |
$sth->execute(@sql_params); |
153 |
- |
|
|