diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-27 21:58:33 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-27 21:58:33 +0000 |
| commit | 2dfa5ccf5ad1e93de82f74891bf17e23d9d7e572 (patch) | |
| tree | c7cc71b2041a3d6e7998eabf29d188428bd5a4da | |
| parent | 5afa8f07125f1246a3b03fd32c0dfe65c6a26b92 (diff) | |
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
| -rwxr-xr-x | LedgerSMB/Form.pm | 4 |
1 files 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) { |