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 (from parent 1:
04d0257
)
fix for pre-5.8 perls
HTML_Widgets_SelectLayers_0_04
author
ivan
<ivan>
Sat, 31 Jan 2004 07:31:09 +0000
(07:31 +0000)
committer
ivan
<ivan>
Sat, 31 Jan 2004 07:31:09 +0000
(07:31 +0000)
Changes
patch
|
blob
|
history
SelectLayers.pm
patch
|
blob
|
history
homepage.pl
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
0839e2f
..
ddb72ce
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,8
@@
Revision history for Perl extension HTML::Widgets::SelectLayers.
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
0.03 Fri Jan 30 20:51:14 2004
- add form_radio
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 ) {
diff --git
a/homepage.pl
b/homepage.pl
index
67ef173
..
374ed1c
100755
(executable)
--- a/
homepage.pl
+++ b/
homepage.pl
@@
-14,7
+14,7
@@
tie my %o, 'Tie::IxHash',
my %html = (
my %html = (
- 'download' => '<A HREF="HTML-Widgets-SelectLayers-0.0
3.tar.gz">Download HTML-Widgets-SelectLayers-0.03
.tar.gz</a>',
+ 'download' => '<A HREF="HTML-Widgets-SelectLayers-0.0
4.tar.gz">Download HTML-Widgets-SelectLayers-0.04
.tar.gz</a>',
'installation' => '<PRE>
perl Makefile.PL
'installation' => '<PRE>
perl Makefile.PL