SF.net SVN: ledger-smb: [584] trunk/bin/ic.pl

[..hidden..]

Revision: 584
          http://svn.sourceforge.net/ledger-smb/?rev=584&view=rev
Author:   tetragon
Date:     2006-11-13 22:15:26 -0800 (Mon, 13 Nov 2006)

Log Message:
-----------
Ignore dbh from $form->{previousform}

Modified Paths:
--------------
    trunk/bin/ic.pl

Modified: trunk/bin/ic.pl
===================================================================
--- trunk/bin/ic.pl	2006-11-14 05:53:11 UTC (rev 583)
+++ trunk/bin/ic.pl	2006-11-14 06:15:26 UTC (rev 584)
@@ -2909,13 +2909,13 @@
     $baseassembly = $form->{baseassembly};
 
     # don't trample on previous variables
-    for (keys %newform) { delete $form->{$_} }
+    for (keys %newform) { delete $form->{$_} if $_ ne 'dbh'}
 
     # now take it apart and restore original values
     foreach $item (split /&/, $previousform) {
       ($key, $value) = split /=/, $item, 2;
       $value =~ s/%26/&/g;
-      $form->{$key} = $value;
+      $form->{$key} = $value if $key ne 'dbh';
     }
 
 


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