Index: openacs-4/packages/calendar/calendar.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/calendar.info,v diff -u -N -r1.42.2.5 -r1.42.2.6 --- openacs-4/packages/calendar/calendar.info 2 Oct 2016 16:43:51 -0000 1.42.2.5 +++ openacs-4/packages/calendar/calendar.info 14 Feb 2017 09:02:55 -0000 1.42.2.6 @@ -7,24 +7,24 @@ f f - + Dirk Gomez Personal and shared event calendars. - 2015-10-04 + 2017-02-14 OpenACS Manage group and shared calendars with download. GPL version 2 2 #calendar.Calendar# - + - + Index: openacs-4/packages/calendar/www/mini-calendar.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/mini-calendar.tcl,v diff -u -N -r1.21.2.5 -r1.21.2.6 --- openacs-4/packages/calendar/www/mini-calendar.tcl 4 Feb 2017 14:17:13 -0000 1.21.2.5 +++ openacs-4/packages/calendar/www/mini-calendar.tcl 14 Feb 2017 09:02:55 -0000 1.21.2.6 @@ -80,12 +80,12 @@ set now [clock scan $date] set date_list [dt_ansi_to_list $date] -set year [dt_trim_leading_zeros [lindex $date_list 0]] -set month [dt_trim_leading_zeros [lindex $date_list 1]] -set day [dt_trim_leading_zeros [lindex $date_list 2]] +set year [util::trim_leading_zeros [lindex $date_list 0]] +set month [util::trim_leading_zeros [lindex $date_list 1]] +set day [util::trim_leading_zeros [lindex $date_list 2]] set months_list [dt_month_names] -set curr_month_idx [expr [dt_trim_leading_zeros [clock format $now -format "%m"]]-1] +set curr_month_idx [expr [util::trim_leading_zeros [clock format $now -format "%m"]]-1] set curr_day [clock format $now -format "%d"] set curr_month [clock format $now -format "%B"] set curr_year [clock format $now -format "%Y"] Index: openacs-4/packages/calendar/www/view-month-display.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-month-display.tcl,v diff -u -N -r1.26.2.2 -r1.26.2.3 --- openacs-4/packages/calendar/www/view-month-display.tcl 28 Sep 2016 09:38:53 -0000 1.26.2.2 +++ openacs-4/packages/calendar/www/view-month-display.tcl 14 Feb 2017 09:02:55 -0000 1.26.2.3 @@ -30,9 +30,9 @@ } set date_list [dt_ansi_to_list $date] -set this_year [dt_trim_leading_zeros [lindex $date_list 0]] -set this_month [dt_trim_leading_zeros [lindex $date_list 1]] -set this_day [dt_trim_leading_zeros [lindex $date_list 2]] +set this_year [util::trim_leading_zeros [lindex $date_list 0]] +set this_month [util::trim_leading_zeros [lindex $date_list 1]] +set this_day [util::trim_leading_zeros [lindex $date_list 2]] set month_string [lindex [dt_month_names] $this_month-1]