diff options
| -rw-r--r-- | Changes | 3 | ||||
| -rw-r--r-- | SelectLayers.pm | 6 | ||||
| -rwxr-xr-x | homepage.pl | 2 |
3 files changed, 7 insertions, 4 deletions
@@ -1,5 +1,8 @@ Revision history for Perl extension HTML::Widgets::SelectLayers. +0.04 Fri Jan 30 23:23:28 2004 + - fix for pre-5.8 versions. *sigh* + 0.03 Fri Jan 30 20:51:14 2004 - add form_radio 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 ) { diff --git a/homepage.pl b/homepage.pl index 67ef173..374ed1c 100755 --- a/homepage.pl +++ b/homepage.pl @@ -14,7 +14,7 @@ tie my %o, 'Tie::IxHash', my %html = ( - 'download' => '<A HREF="HTML-Widgets-SelectLayers-0.03.tar.gz">Download HTML-Widgets-SelectLayers-0.03.tar.gz</a>', + 'download' => '<A HREF="HTML-Widgets-SelectLayers-0.04.tar.gz">Download HTML-Widgets-SelectLayers-0.04.tar.gz</a>', 'installation' => '<PRE> perl Makefile.PL |