diff options
| -rw-r--r-- | LedgerSMB/Form.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 0633ced5..e0eaf529 100644 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -101,6 +101,11 @@ sub new { } for ( keys %$self ) { $self->{$_} =~ s/\N{NULL}//g } + + if ( ($self->{action} eq 'redirect') || ($self->{nextsub} eq 'redirect') ) { + $self->error( "Access Denied", __line__, __file__ ); + } + $self; } |