SF.net SVN: ledger-smb: [1394] trunk/LedgerSMB/Form.pm

[..hidden..]

Revision: 1394
          http://svn.sourceforge.net/ledger-smb/?rev=1394&view=rev
Author:   tetragon
Date:     2007-07-13 08:26:26 -0700 (Fri, 13 Jul 2007)

Log Message:
-----------
Adjusting Form's constructor

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2007-07-13 15:25:51 UTC (rev 1393)
+++ trunk/LedgerSMB/Form.pm	2007-07-13 15:26:26 UTC (rev 1394)
@@ -101,6 +101,11 @@
     }
 
     for ( keys %$self ) { $self->{$_} =~ s/\N{NULL}//g }
+    
+    if ( ($self->{action} eq 'redirect') || ($self->{nextsub} eq 'redirect') ) {
+        $self->error( "Access Denied", __line__, __file__ );
+    }
+    
     $self;
 }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.