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.23.2.1 --- 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 4 Oct 2008 19:58:19 -0000 1.23.2.1 @@ -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 " - - - - - - - -
$prev_month_url - $month_heading - $next_month_url
- \n" + set title [subst { + + + + + + + +
$prev_month_url + + $month_heading + + $next_month_url
+ \n}] } # Write out the header and the days of the week - append output " - - $title - \n" + append output [subst { +
+ $title + \n}] foreach day_of_week $days_of_week { - append output " - \n" + append output [subst { + \n}] } - append output "\n" + append output "\n" set day_of_week 1 set julian_date $first_julian_date @@ -140,68 +144,68 @@ set day_number 1 } - if { $day_of_week == 1} { - append output "\n" - } + if { $day_of_week == 1} { + append output "\n" + } - set skip_day 0 + set skip_day 0 - if {$before_month_p || $after_month_p} { - append output "\n" + append output "\n" - incr day_of_week - incr julian_date + incr day_of_week + incr julian_date incr day_number - if { $day_of_week > 7 } { - set day_of_week 1 - append output "\n" - } + if { $day_of_week > 7 } { + set day_of_week 1 + append output "\n" + } } # There are two ways to display previous and next month link - # this is the default if { $prev_next_links_in_title == 0 } { - append output " - - - \n" + append output [subst { + + + \n}] } return [concat $output "
- - $day_of_week - - + + $day_of_week + +
 " - if { $fill_all_days == 0 } { - set skip_day 1 - } else { - append output "[subst $day_number_template] " - } - } else { + if {$before_month_p || $after_month_p} { + append output " " + if { $fill_all_days == 0 } { + set skip_day 1 + } else { + append output "[subst $day_number_template] " + } + } else { if {$julian_date == $today_julian_date} { set the_bgcolor $today_bgcolor - set the_class "cal-month-today" + set the_class "cal-month-today" } else { set the_bgcolor $day_bgcolor - set the_class "cal-month-day" + 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 } { - append output "
" + if { (!$skip_day) && $large_calendar_p == 1 } { + append output "
" - set calendar_day_index [ns_set find $calendar_details $julian_date] - - while { $calendar_day_index >= 0 } { - set calendar_day [ns_set value $calendar_details $calendar_day_index] + set calendar_day_index [ns_set find $calendar_details $julian_date] + + while { $calendar_day_index >= 0 } { + set calendar_day [ns_set value $calendar_details $calendar_day_index] - ns_set delete $calendar_details $calendar_day_index + ns_set delete $calendar_details $calendar_day_index - append output "$calendar_day" + append output "$calendar_day" - set calendar_day_index [ns_set find $calendar_details $julian_date] - } - append output "
" - } + set calendar_day_index [ns_set find $calendar_details $julian_date] + } + append output "
" + } - append output "
$prev_month_url$next_month_url
$prev_month_url$next_month_url
\n"] Index: openacs-4/packages/lars-blogger/www/blog.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/blog.adp,v diff -u -N -r1.24.4.1 -r1.24.4.2 --- openacs-4/packages/lars-blogger/www/blog.adp 29 Jul 2008 21:16:25 -0000 1.24.4.1 +++ openacs-4/packages/lars-blogger/www/blog.adp 4 Oct 2008 19:57:04 -0000 1.24.4.2 @@ -1,7 +1,5 @@ - - - +