diff options
Diffstat (limited to 'LedgerSMB')
| -rwxr-xr-x | LedgerSMB/Form.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 25e857c1..49bc3d7d 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -76,6 +76,10 @@ sub new { bless $self, $type; + if ($self->{action} =~ /:/){ + $self->error("Access Denied"); + } + $self; } |