summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-14 06:15:26 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-14 06:15:26 +0000
commitdacde037d90ca530e2143cb64c15bb40add41421 (patch)
tree460cb0f3a15a8e9a2e3bdbf109be6f443f648fd3
parent7309cf796a50c8bc0b9ad5e5896863ed822aa20a (diff)
Ignore dbh from $form->{previousform}
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@584 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-xbin/ic.pl4
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';
}