Index: openacs-4/contrib/packages/room-reservation/tcl/rooms-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/room-reservation/tcl/rooms-procs.tcl,v diff -u -r1.2.2.1 -r1.2.2.2 --- openacs-4/contrib/packages/room-reservation/tcl/rooms-procs.tcl 12 Jul 2004 22:08:42 -0000 1.2.2.1 +++ openacs-4/contrib/packages/room-reservation/tcl/rooms-procs.tcl 11 Nov 2004 23:04:24 -0000 1.2.2.2 @@ -191,4 +191,23 @@ return [db_list_of_ns_sets select_reservations {}] } + ad_proc -public needs_approval_p { + {-room_id:required} + } { + Returns whether or not a given room requires approval + before it is committed + + @author (jader-ibr@bread.com) + @creation-date 2004-11-11 + + @param room_id + + @return + + @error + } { + return [db_string room_needs_approval_p {} -default "0"] + } + + }