svn commit: r1311074 - /perl/embperl/trunk/Embperl/Form/Control.pm

[richter]

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