Index: openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl,v
diff -u -r1.3.2.7 -r1.3.2.8
--- openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl	16 Mar 2006 01:42:51 -0000	1.3.2.7
+++ openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl	20 Mar 2006 16:54:15 -0000	1.3.2.8
@@ -181,7 +181,7 @@
                                                   where package_key='dotlrn' and
                                                   parameter_name='community_level_p'}]
                
-               set community_type_level_p_param_id [db_string select_ctlevel_id { 
+               set comm_type_level_p_param_id [db_string select_ctlevel_id { 
                                                   select parameter_id
                                                   from apm_parameters 
                                                   where package_key='dotlrn' and
@@ -213,9 +213,9 @@
                     update apm_parameter_values set 
                     attr_value=(select attr_value from
                     apm_parameter_values_copy where package_id=:package_id 
-                    and parameter_id=:community_type_level_p_param_id)
+                    and parameter_id=:comm_type_level_p_param_id)
                     where package_id=:package_id and
-                    parameter_id=:community_type_level_p_param_id
+                    parameter_id=:comm_type_level_p_param_id
                    }
                    
                    db_dml dotlrn_level_p_update {