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.27 -r1.28
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	16 Mar 2002 17:38:08 -0000	1.27
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	18 Mar 2002 04:59:39 -0000	1.28
@@ -112,10 +112,11 @@
 
         db_transaction {
             set class_key [dotlrn_community::new_type \
-                -community_type_key $class_key \
+                -community_type_key "$department_key.$class_key" \
                 -parent_type $department_key \
                 -pretty_name $pretty_name \
-                -description $description]
+                -description $description \
+                -url_part $class_key]
 
             db_dml insert_class {}
         }