Mailing List Archive

Author: richter
Date: Thu Feb 6 08:46:17 2014
New Revision: 1565117

URL: http://svn.apache.org/r1565117
Log:
Add missing req parameter to show control

Modified:
perl/embperl/trunk/Embperl/Form/Control/show.pm

Modified: perl/embperl/trunk/Embperl/Form/Control/show.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/show.pm?rev=1565117&r1=1565116&r2=1565117&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/show.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/show.pm Thu Feb 6 08:46:17 2014
@@ -31,7 +31,7 @@ __EMBPERL__
# show_control - output the control
#]

-[.$ sub show_control ($self)
+[.$ sub show_control ($self, $req, $value)

my $name = $self->{name};
my $value = exists $self->{value} ? $self->{value} : $fdat{$name};
@@ -44,7 +44,7 @@ $options = [ split /\t/, $value ] if $se
$options = [ split /\n/, $value ] if $self->{splitlines};
$options = [$options] if (!ref $options) ;

-$options = $self -> form -> convert_options ($self, $options, $options)
+$options = $self -> form -> convert_options ($self, $options, $options, $req)
if (ref $options eq 'ARRAY' && !$self -> {showoptions}) ;

$][$ if ref $options eq 'ARRAY' $][- $n = @$options -][$ foreach $v (@$options) $][+ $v +][$ if $n-- > 1 $]<br />[$endif$][$ endforeach
@@ -63,7 +63,7 @@ __END__

=head1 NAME

-Embperl::Form::Control::display - A text display control inside an Embperl Form
+Embperl::Form::Control::show - A text display control inside an Embperl Form


=head1 SYNOPSIS
@@ -85,7 +85,7 @@ See Embperl::Form on how to specify para

=head3 type

-Needs to be set to 'display'.
+Needs to be set to 'show'.

=head3 text




---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org