diff options
| author | ivan <ivan> | 2004-01-31 07:31:09 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-01-31 07:31:09 +0000 |
| commit | be6e0143d36cf2834bb122255ae41b89e5c8049c (patch) | |
| tree | 8df7993d1f02f01263f7f3d0ed1dfb0c75f87822 /SelectLayers.pm | |
| parent | 04d02572d041171f1e85a5c49f749419b3106d08 (diff) | |
fix for pre-5.8 perlsHTML_Widgets_SelectLayers_0_04
Diffstat (limited to 'SelectLayers.pm')
| -rw-r--r-- | SelectLayers.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/SelectLayers.pm b/SelectLayers.pm index a50d969..e7cca4c 100644 --- a/SelectLayers.pm +++ b/SelectLayers.pm @@ -3,7 +3,7 @@ package HTML::Widgets::SelectLayers; use strict; use vars qw($VERSION); -$VERSION = '0.03'; +$VERSION = '0.04'; =head1 NAME @@ -227,8 +227,8 @@ sub _fixup { foreach my $f ( @$form_radio ) { $html .= "what.$f.value = ''; for ( i=0; i< document.$form_name.$f.length; i++ ) - if ( document.$form_name.${f}[i].checked ) - what.$f.value = document.$form_name.${f}[i].value;\n"; + if ( document.$form_name.$f\[i].checked ) + what.$f.value = document.$form_name.$f\[i].value;\n"; } foreach my $f ( @$form_select ) { |