From 2dfa5ccf5ad1e93de82f74891bf17e23d9d7e572 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Fri, 27 Oct 2006 21:58:33 +0000 Subject: UNTESTED: Quoted form keys to avoid future bugs git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@347 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/Form.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 748c3bd4..835ea471 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -170,7 +170,7 @@ sub error { $self->{msg} = $msg; $self->{format} = "html"; - $self->format_string(msg); + $self->format_string('msg'); delete $self->{pre}; @@ -679,7 +679,7 @@ sub parse_template { my $line; my $lines = 0; - my @d = (description); + my @d = qw(description); push @d, "itemnotes" if $self->{countitemnotes}; foreach my $item (@d) { -- cgit v1.2.3