SF.net SVN: ledger-smb:[5101] branches/1.2/common.pl

[..hidden..]

Revision: 5101
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5101&view=rev
Author:   einhverfr
Date:     2012-08-05 09:46:27 +0000 (Sun, 05 Aug 2012)
Log Message:
-----------
Updating Turtle's fix so that it will be safe with ->{action} tests.  Basically we only overwrite the ->{action} if it is not set.

Modified Paths:
--------------
    branches/1.2/common.pl

Modified: branches/1.2/common.pl
===================================================================
--- branches/1.2/common.pl	2012-08-05 04:07:50 UTC (rev 5100)
+++ branches/1.2/common.pl	2012-08-05 09:46:27 UTC (rev 5101)
@@ -27,7 +27,6 @@
 
     my @common_attrs = qw(
       dbh login favicon stylesheet titlebar password custom_db_fields vc
-      action
     );
 
     if ( !$script ) {    # http redirect to login.pl if called w/no args
@@ -46,6 +45,7 @@
     for (@common_attrs) {
         $temphash{$_} = $form->{$_};
     }
+    $temphash{action} = $form->{action}
 
     undef $form;
     $form = new Form($argv);
@@ -53,6 +53,7 @@
     for (@common_attrs) {
         $form->{$_} = $temphash{$_};
     }
+    $form->{action} ||= $temphash{action};
     $form->{script} = $script;
 
     if ( !%myconfig ) {    # needed for login

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