Index: openacs-4/packages/dotlrn/www/admin/community-type.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/community-type.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn/www/admin/community-type.xql	28 Jul 2004 07:24:12 -0000	1.1
+++ openacs-4/packages/dotlrn/www/admin/community-type.xql	14 Jun 2018 11:31:22 -0000	1.2
@@ -8,6 +8,13 @@
 
 <queryset>
 
+  <fullquery name="community_type_exists">
+    <querytext>
+      select 1 from dotlrn_community_types
+      where community_type = :community_type
+    </querytext>
+  </fullquery>
+
   <fullquery name="get_community_type">
     <querytext>
       select