projects
/
HTML-Widgets-SelectLayers.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix for pre-5.8 perls
[HTML-Widgets-SelectLayers.git]
/
SelectLayers.pm
diff --git
a/SelectLayers.pm
b/SelectLayers.pm
index
a50d969
..
e7cca4c
100644
(file)
--- a/
SelectLayers.pm
+++ b/
SelectLayers.pm
@@
-3,7
+3,7
@@
package HTML::Widgets::SelectLayers;
use strict;
use vars qw($VERSION);
use strict;
use vars qw($VERSION);
-$VERSION = '0.0
3
';
+$VERSION = '0.0
4
';
=head1 NAME
=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++ )
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 ) {
}
foreach my $f ( @$form_select ) {