SF.net SVN: ledger-smb: [1393] branches/1.2/LedgerSMB/Form.pm

[..hidden..]

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

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

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Form.pm

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2007-07-12 22:35:56 UTC (rev 1392)
+++ branches/1.2/LedgerSMB/Form.pm	2007-07-13 15:25:51 UTC (rev 1393)
@@ -96,12 +96,17 @@
     {
         $self->error( 'Access Denied', __line__, __file__ );
     }
-
+    
     if ( ( $self->{action} =~ /(:|')/ ) || ( $self->{nextsub} =~ /(:|')/ ) ) {
         $self->error( "Access Denied", __line__, __file__ );
     }
 
     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.