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-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
