--- loncom/xml/lonxml.pm	2023/07/22 22:41:45	1.562
+++ loncom/xml/lonxml.pm	2023/11/27 22:44:21	1.563
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.562 2023/07/22 22:41:45 raeburn Exp $
+# $Id: lonxml.pm,v 1.563 2023/11/27 22:44:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1664,6 +1664,26 @@ ENDFOOTER
       return ($editfooter,$add_to_onload,$add_to_onresize);;
 }
 
+sub setmode_javascript {
+    return <<"ENDSCRIPT";
+<script type="text/javascript">
+// <![CDATA[
+function setmode(form,probmode) {
+    if (probmode == 'daxe') {
+        var url = new URL(document.location.href);
+        window.location = url.protocol+'//'+url.hostname+'/daxepage'+url.pathname;
+    } else {
+        var initial = form.problemmode.value;
+        form.problemmode.value = probmode;
+        form.submit();
+        form.problemmode.value = initial;
+    }
+}
+// ]]>
+</script>
+ENDSCRIPT
+}
+
 sub get_target {
   my $viewgrades=&Apache::lonnet::allowed('vgr',$env{'request.course.id'});
   if ( $env{'request.state'} eq 'published') {