sub set_hidden_parameter { my ($self, $form, $elem, $val) = @_; my $javascript = "window.document.$form.$elem.value = " . '"' . $val . '";'; my $rc = $self->get_eval('$javascript'); return $rc; }