Changeset 14759

Timestamp:

05/07/12 11:33:39 (14 months ago)

Author:

MichaelDaum

Message:

Item11808: reverting perltidy

Location:

trunk/WikiWorkbenchContrib/lib/Foswiki

Files:

• Contrib/WikiWorkbenchContrib/build.pl (modified) (1 diff)
• Form/Wikiapp.pm (modified) (1 diff)

trunk/WikiWorkbenchContrib/lib/Foswiki/Contrib/WikiWorkbenchContrib/build.pl

@@ -2 +2 @@
 
 BEGIN {
-    foreach my $pc ( split( /:/, $ENV{FOSWIKI_LIBS} ) ) {
-        unshift @INC, $pc;
-    }
+  foreach my $pc (split(/:/, $ENV{FOSWIKI_LIBS})) {
+    unshift @INC, $pc;
+  }
 }
 
 use Foswiki::Contrib::Build;
 $build = new Foswiki::Contrib::Build('WikiWorkbenchContrib');
-$build->build( $build->{target} );
+$build->build($build->{target});
 

trunk/WikiWorkbenchContrib/lib/Foswiki/Form/Wikiapp.pm

@@ -10 +10 @@
 
 sub getOptions {
-    my $this = shift;
+  my $this = shift;
 
-    my $vals = $this->{_options};
-    return $vals if $vals;
+  my $vals = $this->{_options};
+  return $vals if $vals;
 
-    require Foswiki::WebFilter;
-    my $f    = new Foswiki::WebFilter('allowed');
-    my @apps = ();
+  require Foswiki::WebFilter;
+  my $f = new Foswiki::WebFilter('allowed');
+  my @apps = ();
 
-    foreach my $app ( $Foswiki::Plugins::SESSION->deepWebList($f) ) {
-        next unless $app =~ /^$APPLICATIONS/;
-        $app =~ s/\//./g;
-        $app =~ s/.*\.(.+?)$/$1/;
+  foreach my $app ($Foswiki::Plugins::SESSION->deepWebList($f)) {
+    next unless $app =~ /^$APPLICATIONS/;
+    $app =~ s/\//./g;
+    $app =~ s/.*\.(.+?)$/$1/;
 
-        $app = 'WikiWorkbench' if $app eq $APPLICATIONS;
-        push @apps, $app;
-    }
+    $app = 'WikiWorkbench' if $app eq $APPLICATIONS;
+    push @apps, $app;
+  }
 
-    @apps = sort @apps;
-    unshift @apps, 'none';
+  @apps = sort @apps;
+  unshift @apps, 'none';
 
-    $this->{_options} = \@apps;
+  $this->{_options} = \@apps;
 
-    return $this->{_options};
+  return $this->{_options};
 }
 
 sub renderForDisplay {
-    my ( $this, $format, $value, $attrs ) = @_;
+  my ($this, $format, $value, $attrs) = @_;
 
-    unless ( $value eq 'none' ) {
-        my $label = $value;
 
-        if ( $value eq 'WikiWorkbench' ) {
-            $value = $APPLICATIONS;
-        }
-        else {
-            $value = $APPLICATIONS . '.' . $value;
-        }
+  unless ($value eq 'none') {
+    my $label = $value;
 
-        $value =
-            '<a href="%SCRIPTURLPATH{"view"}%/' 
-          . $value . '/'
-          . $Foswiki::cfg{HomeTopicName} . '">'
-          . $label . '</a>';
+    if ($value eq 'WikiWorkbench') {
+      $value = $APPLICATIONS;
+    } else {
+      $value = $APPLICATIONS . '.' . $value;
     }
 
-    return $this->SUPER::renderForDisplay( $format, $value, $attrs );
+    $value = '<a href="%SCRIPTURLPATH{"view"}%/' . $value . '/' . $Foswiki::cfg{HomeTopicName} . '">' . $label . '</a>';
+  }
+
+  return $this->SUPER::renderForDisplay($format, $value, $attrs);
 }