--- loncom/homework/structuretags.pm	2016/09/16 22:25:45	1.512.2.12
+++ loncom/homework/structuretags.pm	2017/03/14 12:20:57	1.512.2.13
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.512.2.12 2016/09/16 22:25:45 raeburn Exp $
+# $Id: structuretags.pm,v 1.512.2.13 2017/03/14 12:20:57 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -390,8 +390,10 @@ sub setmode_javascript {
 <script type="text/javascript">
 // <![CDATA[
 function setmode(form,probmode) {
+    var initial = form.problemmode.value;
     form.problemmode.value = probmode;
     form.submit();
+    form.problemmode.value = initial;
 }
 // ]]>
 </script>