Perltidy

death to tabs

git-svn-id: svn://svn.open-ils.org/ILS/trunk@17312 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Web.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Web.pm
index f10946d..9215064 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Web.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Web.pm
@@ -1,11 +1,12 @@
 package OpenILS::WWW::Web;
-use strict; use warnings;
+use strict;
+use warnings;
 
 use Apache2::Log;
 use Apache2::Const -compile => qw(OK REDIRECT :log);
-use APR::Const    -compile => qw(:error SUCCESS);
+use APR::Const     -compile => qw(:error SUCCESS);
 use Apache2::RequestRec ();
-use Apache2::RequestIO ();
+use Apache2::RequestIO  ();
 use Apache2::RequestUtil;
 
 #use CGI ();
@@ -14,81 +15,84 @@ use Template;
 use OpenSRF::EX qw(:try);
 use OpenSRF::System;
 
-my $main_ttk = "opac/logic/page_router.ttk";
-my $error_ttk = "opac/pages/error.ttk";
-my $init_ttk = "opac/logic/page_init.ttk";
-my $bootstrap = "SYSCONFDIR/opensrf_core.xml";
+my $main_ttk       = "opac/logic/page_router.ttk";
+my $error_ttk      = "opac/pages/error.ttk";
+my $init_ttk       = "opac/logic/page_init.ttk";
+my $bootstrap      = "SYSCONFDIR/opensrf_core.xml";
 my $child_init_ttk = "opac/logic/child_init.ttk";
 
-my $includes = [];  # [  '/pines/cvs/ILS/Open-ILS/src/templates' ];
+my $includes = [];    # [  '/pines/cvs/ILS/Open-ILS/src/templates' ];
 
 sub import {
-       my( $self, $tdir ) = @_;
-       $includes = [ $tdir ];
+    my ( $self, $tdir ) = @_;
+    $includes = [$tdir];
 }
 
-
-
 my $plugin_base = 'OpenILS::Template::Plugin';
 
 sub handler {
 
-       my $apache = shift;
-       print "Content-type: text/html; charset=utf-8\n\n";
+    my $apache = shift;
+    print "Content-type: text/html; charset=utf-8\n\n";
 
-       _process_template(
-                       apache          => $apache,
-                       template                => $main_ttk,
-                       pre_process     => $init_ttk );
+    _process_template(
+        apache      => $apache,
+        template    => $main_ttk,
+        pre_process => $init_ttk
+    );
 
-       return Apache2::Const::OK;
+    return Apache2::Const::OK;
 }
 
 sub child_init_handler {
-       _process_template(  template => $child_init_ttk );
+    _process_template( template => $child_init_ttk );
 }
 
 sub _process_template {
 
-       my %params = @_;
-       my $ttk                         = $params{template}             || return undef;
-       my $apache                      = $params{apache}                       || undef;
-       my $pre_process = $params{pre_process}  || undef;
-       my $param_hash          = $params{params}                       || {};
-
-       my $template;
-
-       $template = Template->new( { 
-               OUTPUT                  => $apache, 
-               ABSOLUTE                        => 1, 
-               RELATIVE                        => 1,
-               PLUGIN_BASE             => $plugin_base,
-               PRE_PROCESS             => $pre_process,
-               INCLUDE_PATH    => $includes, 
-               PRE_CHOMP               => 1,
-               POST_CHOMP              => 1,
-               } 
-       );
-
-       try {
-
-               if( ! $template->process( $ttk, $param_hash ) ) { 
-                       warn  "Error Occured: " . $template->error();
-                       my $err = $template->error();
-                       $err =~ s/\n/\<br\/\>/g;
-                       warn "Error processing template $ttk\n";        
-                       my $string =  "<br><b>Unable to process template:<br/><br/> " . $err . "!!!</b>";
-                       $template->process( $error_ttk , { error => $string } );
-               }
-
-       } catch Error with {
-               my $e = shift;
-               warn "Error processing template $ttk:  $e - $@ \n";     
-               print "<center><br/><br/><b>Error<br/><br/> $e <br/><br/> $@ </b><br/></center>";
-               return;
-       };
+    my %params      = @_;
+    my $ttk         = $params{template}    || return undef;
+    my $apache      = $params{apache}      || undef;
+    my $pre_process = $params{pre_process} || undef;
+    my $param_hash  = $params{params}      || {};
+
+    my $template;
+
+    $template = Template->new(
+        {
+            OUTPUT       => $apache,
+            ABSOLUTE     => 1,
+            RELATIVE     => 1,
+            PLUGIN_BASE  => $plugin_base,
+            PRE_PROCESS  => $pre_process,
+            INCLUDE_PATH => $includes,
+            PRE_CHOMP    => 1,
+            POST_CHOMP   => 1,
+        }
+    );
+
+    try {
+
+        if ( !$template->process( $ttk, $param_hash ) ) {
+            warn "Error Occured: " . $template->error();
+            my $err = $template->error();
+            $err =~ s/\n/\<br\/\>/g;
+            warn "Error processing template $ttk\n";
+            my $string =
+                "<br><b>Unable to process template:<br/><br/> " 
+              . $err
+              . "!!!</b>";
+            $template->process( $error_ttk, { error => $string } );
+        }
+
+    }
+    catch Error with {
+        my $e = shift;
+        warn "Error processing template $ttk:  $e - $@ \n";
+        print "<center><br/><br/><b>Error<br/><br/> $e <br/><br/> $@ </b><br/></center>";
+        return;
+    };
 
 }
 
-
 1;