Index: openacs-4/packages/dotlrn/tcl/class-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/class-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	5 Dec 2001 22:05:23 -0000	1.15
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	6 Dec 2001 20:50:51 -0000	1.16
@@ -27,28 +27,15 @@
     ad_proc -public is_initialized {} {
         is dotlrn_class initialized with the right community_type?
     } {
-        set community_type [community_type]
-        return [db_string is_dotlrn_class_initialized {
-            select count(*)
-            from dotlrn_community_types
-            where community_type = :community_type
-            and package_id is not null
-        }]
+        dotlrn_community::is_initialized -community_type [community_type]
     }
 
     ad_proc -public init {} {
-        create base community_type for dotlrn_class
+        create base community_type for dotlrn_clubs
     } {
-        db_transaction {
-            set dotlrn_classes_url "[dotlrn::get_url][dotlrn_class::get_url]/"
-            if {![dotlrn::is_instantiated_here -url $dotlrn_classes_url]} {
-                set package_id [dotlrn::mount_package \
-                    -package_key [dotlrn::package_key] \
-                    -url [dotlrn_class::get_url_part] \
-                    -directory_p "t"]
-                dotlrn_community::set_type_package_id [community_type] $package_id
-            }
-        }
+        dotlrn_community::init \
+            -community_type [community_type] \
+            -community_type_url_part [get_url_part]
     }
 
     ad_proc -public new {