-
-
+ |
- "
+ }]
- append return_html "
+ append return_html [subst {
- "
+ }]
set days_of_week {Sunday Monday Tuesday Wednesday Thursday Friday Saturday}
foreach day $days_of_week {
@@ -101,12 +99,11 @@
set bgcolor $day_bgcolor
}
- append return_html "$day_html
- |
+ append return_html [subst { $day_html |
-
- "
+
+ }]
# Go through events
while {1} {
@@ -115,15 +112,11 @@
break
}
- append return_html "
-
-
-
- [ns_set value $calendar_details $index]
-
- |
-
- "
+ append return_html [subst {
+
+ [ns_set value $calendar_details $index]
+ |
+ }]
ns_set delete $calendar_details $index
}
@@ -149,8 +142,8 @@
{-start_hour 0}
{-end_hour 23}
{-show_nav 1}
- {-prev_nav_template {}}
- {-next_nav_template {}}
+ {-prev_nav_template {}}
+ {-next_nav_template {}}
{-master_bgcolor "black"}
{-header_bgcolor "black"}
{-header_text_color "white"}
@@ -246,9 +239,10 @@
set next_hour ""
set start_time ""
set odd_row_p 0
- set display_hour ""
- append return_html "[subst $hour_template] | "
- append return_html ""
+ set display_hour [subst {}]
+ append return_html [subst {
+ [subst $hour_template] |
+ }]
# Go through events
while {1} {
@@ -575,3 +569,9 @@
return [expr {$end_hour - $start_hour}]
}
}
+
+# Local variables:
+# mode: tcl
+# tcl-indent-level: 4
+# indent-tabs-mode: nil
+# End:
| | | | | |