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

[..hidden..]

Revision: 2774
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2774&view=rev
Author:   einhverfr
Date:     2009-10-26 23:48:47 +0000 (Mon, 26 Oct 2009)

Log Message:
-----------
Merging patch into /trunk

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

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2009-10-26 23:48:10 UTC (rev 2773)
+++ trunk/LedgerSMB/Form.pm	2009-10-26 23:48:47 UTC (rev 2774)
@@ -107,9 +107,11 @@
         $_ = $ARGV[0];
     }
 
-    my $self = {};
-    %$self = split /[&=]/;
-    for ( keys %$self ) { $self->{$_} = unescape( "", $self->{$_} ) }
+    my $self = {}, $orig = {};
+    %$orig = split /[&=]/;
+    for ( keys %$orig ) { 
+        $self->{unescape( "", $_) } = unescape( "", $orig->{$_} );
+    }
 
     if ( substr( $self->{action}, 0, 1 ) !~ /( |\.)/ ) {
         $self->{action} = lc $self->{action};


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