--- loncom/xml/lonxml.pm	2023/11/27 22:44:21	1.563
+++ loncom/xml/lonxml.pm	2023/11/27 23:24:05	1.564
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.563 2023/11/27 22:44:21 raeburn Exp $
+# $Id: lonxml.pm,v 1.564 2023/11/27 23:24:05 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1680,6 +1680,24 @@ function setmode(form,probmode) {
     }
 }
 // ]]>
+</script>
+ENDSCRIPT
+}
+
+sub seteditor_javascript {
+    return <<"ENDSCRIPT";
+<script type="text/javascript">
+// <![CDATA[
+function seteditmode(form,editor) {
+    if (editor == 'daxe') {
+        var url = new URL(document.location.href);
+        window.location = url.protocol+'//'+url.hostname+'/daxepage'+url.pathname;
+    } else {
+        form.editmode.value = editor;
+        form.submit();
+    }
+}
+// ]]>
 </script>
 ENDSCRIPT
 }