--- loncom/homework/edit.pm	2003/04/30 19:40:47	1.47
+++ loncom/homework/edit.pm	2003/05/04 22:14:53	1.48
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # edit mode helpers
 #
-# $Id: edit.pm,v 1.47 2003/04/30 19:40:47 matthew Exp $
+# $Id: edit.pm,v 1.48 2003/05/04 22:14:53 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -448,7 +448,8 @@ sub get_new_args {
   foreach my $arg (@args) {
     #just want the string that it was set to
     my $value=$token->[2]->{$arg};
-    my $newvalue=$ENV{"form.$Apache::lonxml::curdepth.$arg"};
+    my $element=&html_element_name($arg);
+    my $newvalue=$ENV{"form.$element"};
     &Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:");
     if ($value ne $newvalue) {
       $token->[2]->{$arg}=$newvalue;
@@ -483,7 +484,16 @@ sub rebuild_tag {
 
 sub html_element_name {
     my ($name) = @_;
-    return $Apache::lonxml::curdepth.'.'.$name;
+    return $name.'_'.$Apache::lonxml::curdepth;
+}
+
+sub hidden_arg {
+    my ($name,$token) = @_;
+    my $result;
+    my $arg=$token->[2]{$name};
+    $result='<input name="'.&html_element_name($name).
+	'" type="hidden" value="'.$arg.'" />';
+    return $result;
 }
 
 sub text_arg {