diff --git a/lib/Foswiki/Contrib/WikiWorkbenchContrib/build.pl b/lib/Foswiki/Contrib/WikiWorkbenchContrib/build.pl
index e87c3bd..663764c 100755
--- a/lib/Foswiki/Contrib/WikiWorkbenchContrib/build.pl
+++ b/lib/Foswiki/Contrib/WikiWorkbenchContrib/build.pl
@@ -1,12 +1,12 @@
#!/usr/bin/perl -w
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});
diff --git a/lib/Foswiki/Form/Wikiapp.pm b/lib/Foswiki/Form/Wikiapp.pm
index 381a6f1..c0306b1 100644
--- a/lib/Foswiki/Form/Wikiapp.pm
+++ b/lib/Foswiki/Form/Wikiapp.pm
@@ -9,53 +9,49 @@ our @ISA = ('Foswiki::Form::Select');
our $APPLICATIONS = 'Applications';
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 ) = @_;
-
- unless ( $value eq 'none' ) {
- my $label = $value;
-
- if ( $value eq 'WikiWorkbench' ) {
- $value = $APPLICATIONS;
- }
- else {
- $value = $APPLICATIONS . '.' . $value;
- }
-
- $value =
- ''
- . $label . '';
+ my ($this, $format, $value, $attrs) = @_;
+
+
+ unless ($value eq 'none') {
+ my $label = $value;
+
+ if ($value eq 'WikiWorkbench') {
+ $value = $APPLICATIONS;
+ } else {
+ $value = $APPLICATIONS . '.' . $value;
}
- return $this->SUPER::renderForDisplay( $format, $value, $attrs );
+ $value = '' . $label . '';
+ }
+
+ return $this->SUPER::renderForDisplay($format, $value, $attrs);
}
1;