diff options
Diffstat (limited to 'LedgerSMB/Form.pm')
-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 ad9b2d86..745708e3 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; } |