Index: openacs-4/packages/dotlrn/dotlrn.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/dotlrn.info,v
diff -u -r1.131 -r1.132
--- openacs-4/packages/dotlrn/dotlrn.info	3 Dec 2008 13:37:38 -0000	1.131
+++ openacs-4/packages/dotlrn/dotlrn.info	13 Dec 2008 13:36:44 -0000	1.132
@@ -7,14 +7,14 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>f</singleton-p>
     
-    <version name="2.5.0d1" url="http://openacs.org/repository/download/apm/dotlrn-2.5.0d1.apm">
+    <version name="2.5.0d2" url="http://openacs.org/repository/download/apm/dotlrn-2.5.0d2.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>A Course Management System</summary>
         <release-date>2008-10-18</release-date>
         <vendor url="http://openacs.org">OpenACS</vendor>
         <description format="text/html">Course Management</description>
 
-        <provides url="dotlrn" version="2.5.0d1"/>
+        <provides url="dotlrn" version="2.5.0d2"/>
         <requires url="acs-kernel" version="5.5.0d1"/>
         <requires url="acs-lang" version="5.4.2"/>
         <requires url="attachments" version="0.10"/>
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.7 -r1.8
--- openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl	21 Oct 2008 18:29:45 -0000	1.7
+++ openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl	13 Dec 2008 13:36:44 -0000	1.8
@@ -36,6 +36,11 @@
         -parameter HomeURL \
         -value /dotlrn/control-panel
 
+    parameter::set_from_package_key \
+        -package_key acs-kernel \
+        -parameter HomeName \
+        -value "#dotlrn.control_panel#"
+
        # Make sure that privacy is turned on
        acs_privacy::privacy_control_set 1
 	
@@ -253,18 +258,24 @@
                     -value /dotlrn/control-panel
 	    }
 	    2.3.0d1 2.3.0d2 {     
-                # Set access keys for all pages that have known titles
-                set params [list]
-                db_foreach get_default_values {} {
-                    set params [concat $params [split [string trimright $default_value ";"] ";"]]
-                }
-                db_transaction {
-                    foreach param $params {
-                        foreach {title layout accesskey} [split $param ","] {
-                            db_dml set_accesskeys {}
-                        }
+            # Set access keys for all pages that have known titles
+            set params [list]
+            db_foreach get_default_values {} {
+                set params [concat $params [split [string trimright $default_value ";"] ";"]]
+            }
+            db_transaction {
+                foreach param $params {
+                    foreach {title layout accesskey} [split $param ","] {
+                        db_dml set_accesskeys {}
                     }
                 }
             }
+        }
+        2.5.0d1 2.5.0d2 {
+            parameter::set_from_package_key \
+                -package_key acs-kernel \
+                -parameter HomeName \
+                -value "#dotlrn.control_panel#"
+        }
     }
 }