Index: openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	27 Oct 2014 16:39:46 -0000	1.6
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	7 Aug 2017 23:47:58 -0000	1.7
@@ -31,14 +31,7 @@
 	    } 
 	    set user_id [ad_conn user_id]	
 	}
-	return [db_string group_exists_p {
-	    select case when exists (select 1 
-                                       from acs_objects o
-                                      where acs_permission.permission_p(o.object_id, :user_id, 'delete') = 'f'
-                                        and o.object_type = :group_type)
-                        then 0 else 1 end
-              from dual
-	}]
+	return [db_string group_exists_p {}]
     }
 
     
@@ -143,7 +136,7 @@
 	    }
 	    # Now add the drop script
 	    append text "-- Drop script\n";
-	    for { set i [expr {[llength $plsql_drop] - 1}] } { $i >= 0 } { set i [expr {$i - 1}] } {
+	    for { set i [expr {[llength $plsql_drop] - 1}] } { $i >= 0 } { incr i -1 } {
 		# Don't need the sql keys when we display debugging information
 		append text "-- [lindex $plsql_drop $i 1]\n\n"
 	    }
@@ -186,3 +179,9 @@
     }
 	
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: