[Omaha.pm] SQL . sprintf

[Jay Hannah]

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