summaryrefslogtreecommitdiff
path: root/bin/ic.pl
diff options
context:
space:
mode:
Diffstat (limited to 'bin/ic.pl')
-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';
}