Index: openacs-4/packages/acs-subsite/tcl/relation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/relation-procs.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/acs-subsite/tcl/relation-procs.tcl	10 Jun 2005 09:47:23 -0000	1.13
+++ openacs-4/packages/acs-subsite/tcl/relation-procs.tcl	10 Jun 2005 14:32:56 -0000	1.14
@@ -322,13 +322,13 @@
 ad_proc -public relation::get_object_one {
     {-object_id_two:required}
     {-rel_type "membership_rel"}
-    {-multiple_p "f"}
+    {-multiple:boolean}
 } {
     Return the object_id of object one if a relation of rel_type exists between the supplied object_id_two and it.
     
     @param multiple_p If set to "t" return a list instead of only one object_id
 } {
-    if {$multiple_p == "t"} {
+    if {$multiple_p} {
 	return [db_list select_object_one {}]
     } else {
 	return [db_string select_object_one {} -default {}]
@@ -338,13 +338,13 @@
 ad_proc -public relation::get_object_two {
     {-object_id_one:required}
     {-rel_type "membership_rel"}
-    {-multiple_p "f"}
+    {-multiple:boolean}
 } {
     Return the object_id of object two if a relation of rel_type exists between the supplied object_id_one and it.
     
     @param multiple_p If set to "t" return a list instead of only one object_id
 } {
-    if {$multiple_p == "t"} {
+    if {$multiple_p} {
 	return [db_list select_object_two {}]
     } else {
 	return [db_string select_object_two {} -default {}]
@@ -362,9 +362,9 @@
 	if {[empty_string_p $object_id_two]} {
 	    ad_return_error "[_ acs-subsite.Missing_argument]" "[_ acs-subsite.lt_You_have_to_provide_a]"
 	} else {
-	    return [relation::get_object_one -object_id_two $object_id_two -rel_type $rel_type -multiple_p "t"]
+	    return [relation::get_object_one -object_id_two $object_id_two -rel_type $rel_type -multiple]
 	}
     } else {
-	return [relation::get_object_two -object_id_one $object_id_one -rel_type $rel_type -multiple_p "t"]
+	return [relation::get_object_two -object_id_one $object_id_one -rel_type $rel_type -multiple]
     }
 }