Index: openacs-4/packages/dbm/www/lib/master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dbm/www/lib/master.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dbm/www/lib/master.tcl	7 Jun 2006 10:43:18 -0000	1.1
+++ openacs-4/packages/dbm/www/lib/master.tcl	22 Jan 2024 13:49:39 -0000	1.2
@@ -37,6 +37,20 @@
 # Handle RTE widget, which needs special javascript and css in the page header
 global acs_blank_master__htmlareas
 if {[info exists acs_blank_master__htmlareas] } {
+    lappend onload {
+       /* RTE functions */
+       function acs_rteSubmitForm() {
+               updateRTEs();
+               return true;
+       }
+
+       function acs_rteInit(form_name) {
+           // sets onsubmit to function for the given form name
+           if (document.forms == null) return;
+           if (document.forms[form_name] == null) return;
+           document.forms[form_name].onsubmit = acs_rteSubmitForm;
+       }
+    }
     foreach htmlarea_id [lsort -unique $acs_blank_master__htmlareas] {
         lappend onload "acs_rteInit('${htmlarea_id}');"
     }
@@ -67,4 +81,4 @@
 multirow create header_links rel type href media
 multirow append header_links "stylesheet" "text/css" "/resources/acs-templating/lists.css" "all"
 multirow append header_links "stylesheet" "text/css" "/resources/acs-templating/forms.css" "all"
-#multirow append header_links "stylesheet" "text/css" "/resources/acs-subsite/default-master.css" "all"
\ No newline at end of file
+#multirow append header_links "stylesheet" "text/css" "/resources/acs-subsite/default-master.css" "all"
Index: openacs-4/packages/imsld/lib/imsld-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/lib/imsld-master.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/imsld/lib/imsld-master.tcl	15 Nov 2019 09:09:58 -0000	1.7
+++ openacs-4/packages/imsld/lib/imsld-master.tcl	22 Jan 2024 13:49:39 -0000	1.8
@@ -144,6 +144,20 @@
     # Add RTE scripts if we are using RTE
     #
     if {[info exists acs_blank_master(rte)]} {
+        lappend body(onload) {
+           /* RTE functions */
+           function acs_rteSubmitForm() {
+                   updateRTEs();
+                   return true;
+           }
+
+           function acs_rteInit(form_name) {
+               // sets onsubmit to function for the given form name
+               if (document.forms == null) return;
+               if (document.forms[form_name] == null) return;
+               document.forms[form_name].onsubmit = acs_rteSubmitForm;
+           }
+        }
         foreach htmlarea_id [lsort -unique $acs_blank_master__htmlareas] {
 	    lappend body(onload) "acs_rteInit('${htmlarea_id}')"
         }