richter at apache
Jul 5, 2010, 11:26 AM
Post #1 of 1
(601 views)
Permalink
|
|
svn commit: r960658 - in /perl/embperl/trunk: Embperl.pm Embperl/Form/Control/select.pm
|
|
Author: richter
Date: Mon Jul 5 18:26:41 2010
New Revision: 960658
URL: http://svn.apache.org/viewvc?rev=960658&view=rev
Log:
support multiple selects
Modified:
perl/embperl/trunk/Embperl.pm
perl/embperl/trunk/Embperl/Form/Control/select.pm
Modified: perl/embperl/trunk/Embperl.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl.pm?rev=960658&r1=960657&r2=960658&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl.pm (original)
+++ perl/embperl/trunk/Embperl.pm Mon Jul 5 18:26:41 2010
@@ -49,7 +49,7 @@ use vars qw(
@ISA = qw(Exporter DynaLoader);
-$VERSION = '2.4.0_2' ;
+$VERSION = '2.4.0_3' ;
if ($modperl = $ENV{MOD_PERL})
Modified: perl/embperl/trunk/Embperl/Form/Control/select.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/select.pm?rev=960658&r1=960657&r2=960658&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/select.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/select.pm Mon Jul 5 18:26:41 2010
@@ -140,7 +140,8 @@ __EMBPERL__
my ($values, $options, $addtop, $addtop_options, $addbottom, $addbottom_options) = $self -> get_select_values ($req) ;
$]
-<select class="cBase cControl cControlWidthSelect" name="[+ $name +]" id="[+ $name +]"
+<select [+ $self->{multiple}?'multiple':''+] class="cBase cControl cControlWidthSelect" name="[+ $name +]" id="[+ $name +]"
+
[$if ($self -> {sublines} || $self -> {subobjects}) $] OnChange="[+ $nsprefix +]show_selected(document, this)" [$endif$]
[$if ($self -> {rows}) $] size="[+ $self->{rows} +]" [$endif$]
[.+ do { local $escmode = 0 ; $self -> {eventattrs} } +]>
@@ -247,6 +248,9 @@ value (first entry)is displayed. Example
If given, only items where the value matches the regex given in
C<filter> are displayed.
+=head3 multiple
+
+If set to true, allows multiple selections.
=head1 Author
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe [at] perl
For additional commands, e-mail: embperl-cvs-help [at] perl
|
