template::util::date::today (public)

 template::util::date::today

Defined in packages/acs-templating/tcl/date-procs.tcl

Create a new Date object for the current date.

Partial Call Graph (max 5 caller/called nodes):
%3 template::util::date::create template::util::date::create (public) util::trim_leading_zeros util::trim_leading_zeros (public) template::util::date::today template::util::date::today template::util::date::today->template::util::date::create template::util::date::today->util::trim_leading_zeros

Testcases:
No testcase defined.
Source code:
    set now [clock format [clock seconds] -format "%Y %m %d"]
    set today [list]

    foreach v $now {
        # trim leading zeros to avoid octal problem
        lappend today [util::trim_leading_zeros $v]
    }

    return [create {*}$today]
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: