Index: openacs-4/packages/dotlrn/www/admin/community-type.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/community-type.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/admin/community-type.tcl	13 Jun 2018 16:37:27 -0000	1.5
+++ openacs-4/packages/dotlrn/www/admin/community-type.tcl	14 Jun 2018 11:31:22 -0000	1.6
@@ -18,9 +18,7 @@
 }
 
 set edit_p [expr {[info exists community_type] &&
-                  [db_0or1row type_exists {
-                      select 1 from dotlrn_community_types
-                      where community_type = :community_type}]}]
+                  [db_0or1row community_type_exists {}]}]
 
 if { $edit_p } {
     set title "[_ dotlrn.edit_community_type]"
@@ -44,13 +42,13 @@
     {description:text(textarea),optional {label "[_ dotlrn.Description]"} {html {rows 5 cols 60}}}
 } -validate {
     {community_type
-	{ ![dotlrn_community::type_exists $community_type] || 
+	{ ![db_0or1row community_type_exists {}] || 
 	    [info exists original_community_type] }
 	"[_ community_type_exists]"
     }
 } -on_request {
     if { $edit_p } {
-	db_1row get_community_type {}
+        db_1row get_community_type {}
     }
 } -on_submit {
     if { ![info exists original_community_type] } {
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