diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-13 15:26:26 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-13 15:26:26 +0000 |
| commit | 08d2702456c2b2dc495c738428d3bc47b305adc4 (patch) | |
| tree | 68f732ef42f4c4ff09a936431b566bdaf15dc8b3 | |
| parent | 717349c3e383fae954b39a97f5bea115965f927a (diff) | |
Adjusting Form's constructor
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1394 4979c152-3d1c-0410-bac9-87ea11338e46
| -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; } |