Index: openacs-4/packages/dotlrn/sql/oracle/communities-tree-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/sql/oracle/communities-tree-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/sql/oracle/communities-tree-create.sql	31 May 2002 06:23:49 -0000	1.2
+++ openacs-4/packages/dotlrn/sql/oracle/communities-tree-create.sql	24 Jun 2002 21:10:48 -0000	1.3
@@ -35,7 +35,7 @@
     end if;
 
     -- increment the sort_key
-    v_max_child_sortkey := lpad(tree.increment_key(v_max_child_sortkey), 6, '0');
+    v_max_child_sortkey := tree.increment_key(v_max_child_sortkey);
 
     update dotlrn_community_types
     set max_child_sortkey = v_max_child_sortkey
@@ -73,7 +73,7 @@
     end if;
 
     -- increment the sort_key
-    v_max_child_sortkey := lpad(tree.increment_key(v_max_child_sortkey), 6, '0');
+    v_max_child_sortkey := tree.increment_key(v_max_child_sortkey);
 
     if :new.parent_community_id is null then
         update dotlrn_community_types
