You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2012/04/08 21:36:30 UTC
svn commit: r1311074 - /perl/embperl/trunk/Embperl/Form/Control.pm
Author: richter
Date: Sun Apr 8 19:36:29 2012
New Revision: 1311074
URL: http://svn.apache.org/viewvc?rev=1311074&view=rev
Log:
convert tab to spaces
Modified:
perl/embperl/trunk/Embperl/Form/Control.pm
Modified: perl/embperl/trunk/Embperl/Form/Control.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control.pm?rev=1311074&r1=1311073&r2=1311074&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control.pm Sun Apr 8 19:36:29 2012
@@ -50,14 +50,14 @@ sub init
{
my ($self) = @_ ;
- my $eventattrs = '' ;
+ my $eventattrs = '' ;
if (my $e = $self -> {event})
- {
- for (my $i = 0; $i < @$e; $i += 2)
- {
- $eventattrs .= $e -> [$i] . '="' . $e -> [$i+1] . '" ' ;
- }
- }
+ {
+ for (my $i = 0; $i < @$e; $i += 2)
+ {
+ $eventattrs .= $e -> [$i] . '="' . $e -> [$i+1] . '" ' ;
+ }
+ }
$self -> {eventattrs} = $eventattrs ;
$self -> {imagedir} ||= '/images' ;
@@ -191,7 +191,7 @@ sub label_text
return $self -> {label_text} if ($self -> {label_text}) ;
return $self -> {label_text} = $self -> {showtext}?($self->{text} ||
- $self->{name}):$self -> form -> convert_label ($self) ;
+ $self->{name}):$self -> form -> convert_label ($self) ;
}
@@ -332,11 +332,11 @@ $]
[$ sub show_label ($self, $req) $][-
if ($self -> {showoptionslabel})
- {
- my $opts = $self -> form -> convert_options ($self, [$self -> {value}]) ;
- $self -> {text} = $opts -> [0] ;
- $self -> {showtext} = 1 ;
- }
+ {
+ my $opts = $self -> form -> convert_options ($self, [$self -> {value}]) ;
+ $self -> {text} = $opts -> [0] ;
+ $self -> {showtext} = 1 ;
+ }
-][+ $self -> label_text +][$endsub$]
[# ---------------------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org