From 666fd833584fe2e3618a397fe9d9a9bdf4c5b94b Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 26 Apr 2007 18:00:56 +0000
Subject: Doing a simple Perltidy commit so that I can evaluate differences
 between the branches and make sure patches are up to date

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1103 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Template/HTML.pm | 37 ++++++++++++++++++++-----------------
 1 file changed, 20 insertions(+), 17 deletions(-)

(limited to 'LedgerSMB/Template')

diff --git a/LedgerSMB/Template/HTML.pm b/LedgerSMB/Template/HTML.pm
index 8e610e26..62834f70 100755
--- a/LedgerSMB/Template/HTML.pm
+++ b/LedgerSMB/Template/HTML.pm
@@ -1,3 +1,4 @@
+
 =head1 NAME
 
 LedgerSMB::Template::HTML  Template support module for LedgerSMB
@@ -29,29 +30,31 @@ use CGI;
 package LedgerSMB::Template::HTML;
 
 sub get_template {
-	my $name = shift;
-	return "${name}.html";
+    my $name = shift;
+    return "${name}.html";
 }
 
 sub preprocess {
-	my $rawvars = shift;
-	my $vars;
-	my $type = ref $rawvars;
-
-#XXX fix escaping function
-	if ($type eq 'ARRAY') {
-	} elsif ($type eq 'HASH') {
-		for (keys %{$rawvars}) {
-			$vars->{$_} = preprocess($rawvars[$_]);
-		}
-	} else {
-		return CGI::escapeHTML($rawvars); 
-	}
+    my $rawvars = shift;
+    my $vars;
+    my $type = ref $rawvars;
+
+    #XXX fix escaping function
+    if ( $type eq 'ARRAY' ) {
+    }
+    elsif ( $type eq 'HASH' ) {
+        for ( keys %{$rawvars} ) {
+            $vars->{$_} = preprocess( $rawvars[$_] );
+        }
+    }
+    else {
+        return CGI::escapeHTML($rawvars);
+    }
 }
 
 sub postprocess {
-	my $parent = shift;
-	return;
+    my $parent = shift;
+    return;
 }
 
 1;
-- 
cgit v1.2.3