Index: openacs-4/contrib/packages/room-reservation/www/reservation-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/room-reservation/www/reservation-edit.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/contrib/packages/room-reservation/www/reservation-edit.tcl 22 Apr 2004 06:58:38 -0000 1.2 +++ openacs-4/contrib/packages/room-reservation/www/reservation-edit.tcl 13 Jan 2005 13:54:38 -0000 1.3 @@ -22,15 +22,18 @@ permission::require_permission -party_id $user_id -object_id $reservation_id -privilege "write" } -if {![string equal "pending" [room-reservation::reservations::get_status -reservation_id $reservation_id]] && ![permission::permission_p -party_id $user_id -object_id $reservation_id -privilege "admin"]} { +set room_id [room-reservation::reservations::get_room_id -reservation_id $reservation_id] +set room_full_name [room-reservation::rooms::get_full_name -room_id $room_id] + +if { \ + [room-reservation::rooms::needs_approval_p -room_id $room_id] && + ![string equal "pending" [room-reservation::reservations::get_status -reservation_id $reservation_id]] && \ + ![permission::permission_p -party_id $user_id -object_id $reservation_id -privilege "admin"]} { ad_return_complaint 1 "