- # delete action variable
- delete $form->{action};
- delete $form->{name_list};
-
- # save all other form variables
- foreach $key (keys %${form}) {
- $form->{$key} =~ s/"/"/g;
- print qq|<input name=$key type=hidden value="$form->{$key}">\n|;
- }