Ignore dbh from $form->{previousform}

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@584 4979c152-3d1c-0410-bac9-87ea11338e46

1 files 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';
     }