Index: openacs-4/contrib/packages/room-reservation/www/room-reservations.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/room-reservation/www/room-reservations.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/room-reservation/www/room-reservations.tcl 15 Mar 2004 03:39:31 -0000 1.1 +++ openacs-4/contrib/packages/room-reservation/www/room-reservations.tcl 22 Apr 2004 06:58:38 -0000 1.2 @@ -10,7 +10,7 @@ } { room_id:integer,notnull - {view "list"} + {view "month"} {date ""} {julian_date ""} } -properties { @@ -34,12 +34,6 @@ set item_add_template "(Reserve)" switch -exact -- $view { - {list} { - set content [room-reservation::calendar::list_display -room_id $room_id \ - -date $date \ - -item_template $item_template \ - ] - } {week} { set content [room-reservation::calendar::one_week_display -room_id $room_id \ -date $date \ @@ -59,14 +53,20 @@ -item_add_template "$item_add_template" \ ] } - default { + {day} { set content [room-reservation::calendar::one_day_display -room_id $room_id \ -date $date \ -prev_nav_template "<" \ -next_nav_template ">" \ -item_template $item_template \ ] } + {list} { + set content [room-reservation::calendar::list_display -room_id $room_id \ + -date $date \ + -item_template $item_template \ + ] + } } set calendar_navigation [dt_widget_calendar_navigation "room-reservations" $view $date "room_id=$room_id"]