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"]