X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=SelectLayers.pm;fp=SelectLayers.pm;h=f37c90aae765403ef6e56d421f0ba237f8fc5a07;hb=f1b912124552474bb635f697e1a6fd34f2ddb40d;hp=e7cca4c637d0a481e9fe2de0662b853d140aa172;hpb=be6e0143d36cf2834bb122255ae41b89e5c8049c;p=HTML-Widgets-SelectLayers.git
diff --git a/SelectLayers.pm b/SelectLayers.pm
index e7cca4c..f37c90a 100644
--- a/SelectLayers.pm
+++ b/SelectLayers.pm
@@ -3,7 +3,7 @@ package HTML::Widgets::SelectLayers;
use strict;
use vars qw($VERSION);
-$VERSION = '0.04';
+$VERSION = '0.05';
=head1 NAME
@@ -35,7 +35,7 @@ HTML::Widgets::SelectLayers - Perl extension for selectable HTML layers
},
);
- print '
';
+ $self->_select. $between. ''.
+ "";
#foreach my $layer ( 'konq_kludge', keys %$options ) {
foreach my $layer ( keys %$options ) {
#start layer
- my $visibility = "hidden";
+
$html .= <
- if (document.getElementById) {
- document.write("");
- } else {
-END
- $visibility="show" if $visibility eq "visible";
- $html .= <
");
- }
-
+
END
#form fields
$html .= <
+
END
}
+ if ( $under_position eq 'absolute' ) {
+ $html .= <
+ //var max = ${key}maxHeight;
+ document.write("");
+
+END
+ }
+
$html;
}
@@ -253,7 +262,7 @@ sub _select {