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 -r1.3 --- openacs-4/contrib/packages/room-reservation/tcl/rooms-procs.tcl 22 Apr 2004 06:58:37 -0000 1.2 +++ openacs-4/contrib/packages/room-reservation/tcl/rooms-procs.tcl 13 Jan 2005 13:54:38 -0000 1.3 @@ -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"] + } + + }