diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-02-18 19:46:07 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-02-18 19:46:07 +0000 |
commit | d26da56dac675f2c6f4847ca2fc83146f2fb3cdd (patch) | |
tree | f9bd77ac02a3066a6a859779082792a4b0b8d0f9 /LedgerSMB | |
parent | 44647ab9c528e7dbba47a50420439a5b5dfab58e (diff) |
Added documentation about tax interface.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@816 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-x | LedgerSMB/Form.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 4b30c317..caa9857b 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -575,6 +575,9 @@ sub parse_template { $self->{images} = "${LedgerSMB::Sysconfig::images}/$self->{templates}"; if ($self->{language_code}) { + if ($self->{language_code} =~ /(\.\.|\/|\*)/){ + $self->error("Invalid Language Code"); + } if (-f "$self->{templates}/$self->{language_code}/$self->{IN}") { open(IN, '<', "$self->{templates}/$self->{language_code}/$self->{IN}") or $self->error("$self->{IN} : $!"); |