Index: openacs-4/packages/calendar/www/view-week-display.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-week-display.tcl,v diff -u -r1.29 -r1.30 --- openacs-4/packages/calendar/www/view-week-display.tcl 20 Mar 2018 08:42:19 -0000 1.29 +++ openacs-4/packages/calendar/www/view-week-display.tcl 20 Mar 2018 08:49:09 -0000 1.30 @@ -12,7 +12,7 @@ {calendar_id_list ""} {cal_system_type ""} {export ""} - {return_url:optional} + {return_url:optional} } #Display constants, should match up with default styles in calendar.css. @@ -37,9 +37,9 @@ } if {$calendar_id_list ne ""} { - set calendars_clause [db_map dbqd.calendar.www.views.openacs_in_portal_calendar] + set calendars_clause [db_map dbqd.calendar.www.views.openacs_in_portal_calendar] } else { - set calendars_clause [db_map dbqd.calendar.www.views.openacs_calendar] + set calendars_clause [db_map dbqd.calendar.www.views.openacs_calendar] } if {$date eq ""} { @@ -64,7 +64,7 @@ db_1row select_weekday_info {} db_1row select_week_info {} - + set current_weekday 0 #s/item_id/url @@ -140,7 +140,7 @@ set max_bumps 0 set previous_intervals [list] } - + if { $no_time_p } { #All day event set top_hour 0 @@ -227,7 +227,7 @@ $top \ $height \ $left \ - $num_attachments + $num_attachments set current_weekday $day_of_week