--- loncom/homework/lonsimpleproblemedit.pm	2013/05/10 12:48:48	1.35
+++ loncom/homework/lonsimpleproblemedit.pm	2015/09/11 00:56:41	1.38
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Simple Problem Parameter Setting "Editor"
 #
-# $Id: lonsimpleproblemedit.pm,v 1.35 2013/05/10 12:48:48 raeburn Exp $
+# $Id: lonsimpleproblemedit.pm,v 1.38 2015/09/11 00:56:41 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -218,12 +218,13 @@ sub handler {
 		$env{'form.newopt'}=~s/\'/\\\'/g;
                 $curoptions{$env{'form.newopt'}}=$env{'form.newopt'};
 	    }
-            $env{'form.options'}="('".join("','",keys %curoptions)."')";
+            $env{'form.options'}="('".join("','",keys(%curoptions))."')";
 	}
 	$env{'form.hiddenparts'}='!'.$env{'form.questiontype'};
-        foreach (keys %env) {
-	    if ($_=~/^form\.(\w+)$/) {
+        foreach my $envkey (keys(%env)) {
+	    if ($envkey=~/^form\.(\w+)$/) {
                 my $parm=$1;
+                next if ($parm eq 'symb');
 		$storecontent{$prefix.$parm}=$env{'form.'.$parm};
                 $storecontent{$prefix.$parm}=~s/^\s+//s;
 		$storecontent{$prefix.$parm}=~s/\s+$//s;
@@ -315,7 +316,7 @@ ENDJS
            .&rawrendering($symb)
            .'</div>'
         );
-        $r->print('<form name="simpleedit" method="post">');
+        $r->print('<form name="simpleedit" method="post" action="">');
 # Question Type        
         my %questiontypes=(
                'radio'     => '1 out of N multiple choice (radio button)',