[subst $hour_template] | "
- append return_html ""
+ append return_html "[subst $hour_template] | "
+ append return_html ""
# Go through events
while {1} {
@@ -270,7 +270,7 @@
ns_set delete $calendar_details $index
}
- append return_html "
+ append return_html "
| "
for {set hour $start_hour} {$hour <= $end_hour} {incr hour} {
@@ -319,7 +319,7 @@
}
set display_hour [subst $hour_template]
- append return_html "$display_hour | \n"
+ append return_html " $display_hour | \n"
set n_processed_events 0
@@ -359,7 +359,7 @@
set colspan 1
}
- append return_html "[lindex $one_item_val 2] | "
+ append return_html "[lindex $one_item_val 2] | "
} else {
append return_html "[ns_set value $calendar_details $index] \n"
}
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.23 -r1.24
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl 15 May 2007 20:14:14 -0000 1.23
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl 9 Nov 2008 23:29:22 -0000 1.24
@@ -19,7 +19,7 @@
-header_bgcolor "black"
-header_text_color "white"
-header_text_size "+2"
- -day_number_template {$day_number}
+ -day_number_template {$day_number}
-day_header_size 2
-day_header_bgcolor "#666666"
-calendar_width "100%"
@@ -75,42 +75,46 @@
# in the title bar
if { $prev_next_links_in_title == 0 } {
- set title "
-
- $month_heading
- | \n"
+ set title [subst {
+
+
+ $month_heading
+
+ | \n}]
} else {
- set title "
-
-
- | \n"
+ set title [subst {
+
+
+ | \n}]
}
# Write out the header and the days of the week
- append output "
-
- $title
-
| "
@@ -791,18 +795,18 @@
append output "
- $day_number
+ $day_number
| "
} elseif {$julian_date == $julian_date_today} {
append output "
- $day_number
+ $day_number
| "
} else {
append output "
- $day_number
+ $day_number
| "
}
@@ -833,21 +837,23 @@
|