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.5 -r1.6
--- openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl	15 Dec 2006 22:45:22 -0000	1.5
+++ openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl	15 May 2007 20:14:25 -0000	1.6
@@ -56,7 +56,10 @@
 
         }
        # Get the default Site Template
-       set site_template_id [db_string select_st_id "select site_template_id from dotlrn_site_templates where pretty_name = '#new-portal.sloan_theme_name#'"]
+       set default_template_name [parameter::get \
+                                     -package_id $package_id \
+                                     -parameter DefaultSiteTemplate]
+       set site_template_id [db_string select_st_id {}]
        
        # for communities
        parameter::set_value -package_id $package_id \
@@ -249,5 +252,19 @@
                     -parameter HomeURL \
                     -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 {}
+                        }
+                    }
+                }
+            }
     }
 }