Index: openacs-4/packages/acs-kernel/sql/postgresql/acs-object-util.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/acs-object-util.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-kernel/sql/postgresql/acs-object-util.sql	7 Jul 2011 10:46:02 -0000	1.5
+++ openacs-4/packages/acs-kernel/sql/postgresql/acs-object-util.sql	3 Sep 2024 15:37:33 -0000	1.6
@@ -12,15 +12,14 @@
    p_object_type varchar
 ) RETURNS boolean AS $$
 DECLARE
-    v_exist_p           boolean := 't';
+    v_exist_p boolean;
 BEGIN
 
-
-    select (case when count(*)=1 then 't' else 'f' end) into v_exist_p
+    select true into v_exist_p
     from   acs_object_types 
     where  object_type = p_object_type;
  
-    return v_exist_p;
+    return FOUND;
 END;
 $$ LANGUAGE plpgsql stable;
 
