projects
/
HTML-Widgets-SelectLayers.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5d8d48f
)
fix form_select, should work now
author
ivan
<ivan>
Fri, 19 Apr 2002 22:24:20 +0000
(22:24 +0000)
committer
ivan
<ivan>
Fri, 19 Apr 2002 22:24:20 +0000
(22:24 +0000)
SelectLayers.pm
patch
|
blob
|
history
diff --git
a/SelectLayers.pm
b/SelectLayers.pm
index
58e1700
..
6acb19d
100644
(file)
--- a/
SelectLayers.pm
+++ b/
SelectLayers.pm
@@
-127,6
+127,8
@@
sub html {
exists($self->{form_text}) ? $self->{form_text} : [];
my $form_checkbox =
exists($self->{form_checkbox}) ? $self->{form_checkbox} : [];
exists($self->{form_text}) ? $self->{form_text} : [];
my $form_checkbox =
exists($self->{form_checkbox}) ? $self->{form_checkbox} : [];
+ my $form_select =
+ exists($self->{form_select}) ? $self->{form_select} : [];
my $html = $self->_safeonload.
$self->_visualize.
my $html = $self->_safeonload.
$self->_visualize.
@@
-157,7
+159,7
@@
END
$html .= <<END;
<FORM NAME="${key}$layer" ACTION="$form_action" METHOD=POST onSubmit="${key}fixup(this)">
END
$html .= <<END;
<FORM NAME="${key}$layer" ACTION="$form_action" METHOD=POST onSubmit="${key}fixup(this)">
END
- foreach my $f ( @$form_text, @$form_checkbox ) {
+ foreach my $f ( @$form_text, @$form_checkbox
, @$form_select
) {
$html .= <<END;
<INPUT TYPE="hidden" NAME="$f" VALUE="">
END
$html .= <<END;
<INPUT TYPE="hidden" NAME="$f" VALUE="">
END