Reply-to: "Perl Mongers of Omaha, Nebraska USA" <omaha-pm@pm.org>
Thread-index: AcWiibWtboG/HG9NQpmy8eZpbOebYg==
Before
my @T = Date::Calc::Today;
$filter .= " AND extend(arrival_date,year to day) >= '" .
sprintf("%04d-%02d-%02d",$T[0..2]) . "'";
After
$filter .= " AND extend(arrival_date,year to day) >= " .
sprintf("'%04d-%02d-%02d'", Date::Calc::Today);
j