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]