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.5.2.1
--- 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	29 Mar 2007 02:35:32 -0000	1.5.2.1
@@ -249,5 +249,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 {}
+                        }
+                    }
+                }
+            }
     }
 }
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/dotlrn/tcl/apm-callback-procs.xql'.
Fisheye: No comparison available.  Pass `N' to diff?