loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.47, 2003/04/30 19:40:47	version 1.48, 2003/05/04 22:14:53
Line 448 sub get_new_args {	Line 448 sub get_new_args {
foreach my $arg (@args) {	foreach my $arg (@args) {
#just want the string that it was set to	#just want the string that it was set to
my $value=$token->[2]->{$arg};	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:");	&Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:");
if ($value ne $newvalue) {	if ($value ne $newvalue) {
$token->[2]->{$arg}=$newvalue;	$token->[2]->{$arg}=$newvalue;
Line 483 sub rebuild_tag {	Line 484 sub rebuild_tag {

sub html_element_name {	sub html_element_name {
my ($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 {	sub text_arg {