SF.net SVN: ledger-smb:[5122] branches/1.3/common.pl

[..hidden..]

Revision: 5122
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5122&view=rev
Author:   einhverfr
Date:     2012-08-19 07:40:42 +0000 (Sun, 19 Aug 2012)
Log Message:
-----------
Fix for missing action in redirect re-applied in 1.3

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

Modified: branches/1.3/common.pl
===================================================================
--- branches/1.3/common.pl	2012-08-17 19:23:50 UTC (rev 5121)
+++ branches/1.3/common.pl	2012-08-19 07:40:42 UTC (rev 5122)
@@ -51,6 +51,7 @@
     for (@common_attrs) {
         $temphash{$_} = $form->{$_};
     }
+    $temphash{action} = $form->{action};
 
     undef $form;
     $form = new Form($argv);
@@ -58,6 +59,7 @@
     for (@common_attrs) {
         $form->{$_} = $temphash{$_};
     }
+    $form->{action} ||= $temphash{action}; # default to old action if not set
 
     $form->{script} = $script;
 

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