Index: openacs-4/contrib/packages/simulation/tcl/simulation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/tcl/Attic/simulation-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/simulation/tcl/simulation-procs.tcl	14 Oct 2003 13:58:03 -0000	1.1
+++ openacs-4/contrib/packages/simulation/tcl/simulation-procs.tcl	24 Oct 2003 09:46:13 -0000	1.2
@@ -7,7 +7,20 @@
 }
 
 namespace eval simulation {}
+namespace eval simulation::object_type {}
 
+ad_proc -public simulation::object_type::get_options {
+} {
+    Generate a list of object types formatted as an option list for form-builder's widgets.
+} {
+    set sim_types { sim_character sim_prop sim_home }
 
+    return [db_list_of_lists object_types "
+        select ot.pretty_name,
+               ot.object_type
+          from acs_object_types ot
+         where ot.object_type in ('[join $sim_types "','"]')
+    "]
+}
 
-# Lars: Nothing here yet, keeping it in case we want to add something
+