From dacde037d90ca530e2143cb64c15bb40add41421 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 14 Nov 2006 06:15:26 +0000
Subject: Ignore dbh from $form->{previousform}

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@584 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/ic.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/ic.pl b/bin/ic.pl
index 64a399d7..8cc8f5f5 100755
--- a/bin/ic.pl
+++ b/bin/ic.pl
@@ -2909,13 +2909,13 @@ sub save {
     $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';
     }
 
 
-- 
cgit v1.2.3