diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-04-26 18:00:56 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-04-26 18:00:56 +0000 |
commit | 666fd833584fe2e3618a397fe9d9a9bdf4c5b94b (patch) | |
tree | 19c4444705fd7f7803e0d7b597659c11d7e85b73 /LedgerSMB/Template | |
parent | 2edd2e4de0f08a0a5f23647ea715f279671a0b89 (diff) |
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
Diffstat (limited to 'LedgerSMB/Template')
-rwxr-xr-x | LedgerSMB/Template/HTML.pm | 37 |
1 files changed, 20 insertions, 17 deletions
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; |