Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl,v diff -u -N -r1.26 -r1.27 --- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl 19 Jun 2015 19:52:03 -0000 1.26 +++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl 7 Aug 2017 23:47:55 -0000 1.27 @@ -74,23 +74,23 @@ if { $prev_next_links_in_title == 0 } { set title [subst { -
$prev_month_url | -+ |
+
| \n}]
@@ -99,13 +99,13 @@
# Write out the header and the days of the week
append output [subst {
-
+ | $day_of_week @@ -153,7 +153,7 @@ if { $fill_all_days == 0 } { set skip_day 1 } else { - append output "[subst $day_number_template] " + append output [subst $day_number_template] " " } } else { if {$julian_date == $today_julian_date} { @@ -164,7 +164,7 @@ set the_class "cal-month-day" } - append output " | [subst $day_number_template] " + append output [subst { | $day_number_template}] " "
}
if { (!$skip_day) && $large_calendar_p == 1 } {
@@ -174,11 +174,8 @@
while { $calendar_day_index >= 0 } {
set calendar_day [ns_set value $calendar_details $calendar_day_index]
-
ns_set delete $calendar_details $calendar_day_index
-
append output "$calendar_day"
-
set calendar_day_index [ns_set find $calendar_details $julian_date]
}
append output ""
@@ -231,7 +228,7 @@
Returns a small calendar for a specific month. Defaults to this month.
} {
if {$days_of_week eq ""} {
- set days_of_week "[_ acs-datetime.short_days_of_week]"
+ set days_of_week [_ acs-datetime.short_days_of_week]
}
return [dt_widget_month \
-calendar_details $calendar_details \
@@ -277,15 +274,15 @@
} {
if {$days_of_week eq ""} {
- set days_of_week "[_ acs-datetime.short_days_of_week]"
+ set days_of_week [_ acs-datetime.short_days_of_week]
}
set output ""
dt_get_info $date
append output "
|