|
Lines 360-372
if (@branchcodes) {
Link Here
|
| 360 |
my $date_to_run; |
360 |
my $date_to_run; |
| 361 |
my $date; |
361 |
my $date; |
| 362 |
if ( $date_input ){ |
362 |
if ( $date_input ){ |
| 363 |
$date = $dbh->quote($date); |
|
|
| 364 |
eval { |
363 |
eval { |
| 365 |
$date_to_run = dt_from_string( $date_input ); |
364 |
$date_to_run = dt_from_string( $date_input, 'iso' ); |
| 366 |
}; |
365 |
}; |
| 367 |
die "$date_input is not a valid date, aborting! Use a date in format YYYY-MM-DD." |
366 |
die "$date_input is not a valid date, aborting! Use a date in format YYYY-MM-DD." |
| 368 |
if $@ or not $date_to_run; |
367 |
if $@ or not $date_to_run; |
| 369 |
|
368 |
|
|
|
369 |
# It's certainly useless to escape $date_input |
| 370 |
# dt_from_string should not return something if $date_input is not correctly set. |
| 371 |
$date = $dbh->quote( $date_input ); |
| 370 |
} |
372 |
} |
| 371 |
else { |
373 |
else { |
| 372 |
$date="NOW()"; |
374 |
$date="NOW()"; |
| 373 |
- |
|
|