Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v diff -u -r1.55 -r1.56 --- openacs-4/packages/acs-templating/tcl/date-procs.tcl 7 Apr 2018 19:37:20 -0000 1.55 +++ openacs-4/packages/acs-templating/tcl/date-procs.tcl 25 Apr 2018 19:23:26 -0000 1.56 @@ -143,7 +143,7 @@ } { set now [clock format [clock seconds] -format "%Y %m %d"] - set today [list] + set today {} foreach v $now { # trim leading zeros to avoid octal problem @@ -157,7 +157,7 @@ Create a new Date object for the current date and time } { set now [clock format [clock seconds] -format "%Y %m %d %H %M %S"] - set today [list] + set today {} foreach v $now { lappend today [util::trim_leading_zeros $v] @@ -340,7 +340,7 @@ # Return a date in format "YYYY MM DD HH24 MI SS" # For use with karl's non-working form builder API set clipped_date [lrange $date 0 5] - set ret [list] + set ret {} set pad "0000" foreach fragment $clipped_date { lappend ret "[string range $pad [string length $fragment] end]$fragment" @@ -351,7 +351,7 @@ linear_date_no_time { # Return a date in format "YYYY MM DD" set clipped_date [lrange $date 0 2] - set ret [list] + set ret {} set pad "0000" foreach fragment $clipped_date { lappend ret "[string range $pad [string length $fragment] end]$fragment" @@ -367,7 +367,7 @@ # not a terribly efficient thing to do. set clipped_date [lrange $date 0 2] - set date_list [list] + set date_list {} set pad "0000" foreach fragment $clipped_date { lappend date_list "[string range $pad [string length $fragment] end]$fragment" @@ -489,7 +489,7 @@ } clock { set old_date [clock format $value -format "%Y %m %d %H %M %S"] - set new_date [list] + set new_date {} foreach field $old_date { lappend new_date [util::trim_leading_zeros $field] } @@ -498,7 +498,7 @@ } sql_date { set old_format [lindex $date 6] - set new_date [list] + set new_date {} foreach fragment $value { lappend new_date [util::trim_leading_zeros $fragment] } @@ -568,7 +568,7 @@ @author Walter McGinnis (wtem@olywa.net) @creation-date 2002-01-06 } { - set now [list] + set now {} foreach v [clock format [clock seconds] -format "%Y %m %d %H %M %S"] { lappend now [util::trim_leading_zeros $v] } @@ -603,7 +603,7 @@ @author Walter McGinnis (wtem@olywa.net) @creation-date 2002-01-06 } { - set now [list] + set now {} foreach v [clock format [clock seconds] -format "%Y %m %d %H %M %S"] { lappend now [util::trim_leading_zeros $v] } @@ -727,7 +727,7 @@ unpack $date - set error_msg [list] + set error_msg {} foreach {field exp} { year "YYYY|YY" month "MM|MON|MONTH" day "DD" hours "HH24|HH12" minutes "MI" seconds "SS" } { @@ -1036,7 +1036,7 @@ # of tokens set format_string $element(format) - set tokens [list] + set tokens {} if {[info exists attributes(id)]} { set id_attr_name $attributes(id)