From 08d2702456c2b2dc495c738428d3bc47b305adc4 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 13 Jul 2007 15:26:26 +0000
Subject: Adjusting Form's constructor

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1394 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Form.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'LedgerSMB/Form.pm')

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;
 }
 
-- 
cgit v1.2.3